/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_12 / extras / astronomy / eclipse

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 18 20 f4 20 20 | 2a 2a 20 20 3e 45 43 4c |.... .  |**  >ECL|
|00000010| 49 50 53 45 20 20 2a 2a | 0d 00 14 08 20 eb 20 30 |IPSE  **|.... . 0|
|00000020| 0d 00 1e 53 20 f1 27 8a | 35 29 3b 22 54 68 69 73 |...S .'.|5);"This|
|00000030| 20 72 6f 75 74 69 6e 65 | 20 63 61 6c 63 75 6c 61 | routine| calcula|
|00000040| 74 65 73 20 74 68 65 20 | 63 69 72 63 75 6d 73 74 |tes the |circumst|
|00000050| 61 6e 63 65 73 20 6f 66 | 20 6c 75 6e 61 72 20 61 |ances of| lunar a|
|00000060| 6e 64 20 73 6f 6c 61 72 | 20 65 63 6c 69 70 73 65 |nd solar| eclipse|
|00000070| 73 2e 22 0d 00 28 06 20 | 3a 0d 00 32 0f 20 de 20 |s."..(. |:..2. . |
|00000080| 46 4c 41 47 28 31 31 29 | 0d 00 3c 1e 20 dd a4 52 |FLAG(11)|..<. ..R|
|00000090| 41 44 28 57 29 3d 31 2e | 37 34 35 33 32 39 32 35 |AD(W)=1.|74532925|
|000000a0| 32 45 2d 32 2a 57 0d 00 | 46 1d 20 dd a4 44 45 47 |2E-2*W..|F. ..DEG|
|000000b0| 28 57 29 3d 35 2e 37 32 | 39 35 37 37 39 35 31 45 |(W)=5.72|9577951E|
|000000c0| 31 2a 57 0d 00 50 2c 20 | dd a4 4c 49 46 28 57 29 |1*W..P, |..LIF(W)|
|000000d0| 3d a8 28 57 29 2d 28 46 | 4c 41 47 28 30 29 2d 31 |=.(W)-(F|LAG(0)-1|
|000000e0| 29 2a a8 28 28 b4 28 57 | 29 2d 31 29 2f 32 29 0d |)*.((.(W|)-1)/2).|
|000000f0| 00 5a 23 20 dd a4 41 53 | 4e 28 57 29 3d 99 28 57 |.Z# ..AS|N(W)=.(W|
|00000100| 2f 28 b6 28 31 2d 57 2a | 57 29 2b 31 45 2d 32 30 |/(.(1-W*|W)+1E-20|
|00000110| 29 29 0d 00 64 1a 20 dd | a4 49 54 47 28 57 29 3d |))..d. .|.ITG(W)=|
|00000120| b4 28 57 29 2a a8 28 94 | 28 57 29 29 0d 00 6e 1d |.(W)*.(.|(W))..n.|
|00000130| 20 dd a4 55 4e 57 28 57 | 2c 5a 29 3d 57 2d a4 4c | ..UNW(W|,Z)=W-.L|
|00000140| 49 46 28 57 2f 5a 29 2a | 5a 0d 00 78 1c 20 dd a4 |IF(W/Z)*|Z..x. ..|
|00000150| 52 4f 55 28 58 2c 59 29 | 3d a8 28 58 2a 59 2b 30 |ROU(X,Y)|=.(X*Y+0|
|00000160| 2e 35 29 2f 59 0d 00 82 | 27 20 dd a4 5a 28 41 2c |.5)/Y...|' ..Z(A,|
|00000170| 42 2c 43 2c 44 29 3d 28 | 41 2a 41 29 2d 28 28 42 |B,C,D)=(|A*A)-((B|
|00000180| 2d 28 43 2a 43 29 29 2a | 41 2f 44 29 0d 00 8c 18 |-(C*C))*|A/D)....|
|00000190| 20 f1 3a 46 4c 41 47 28 | 30 29 3d 31 3a 54 50 49 | .:FLAG(|0)=1:TPI|
|000001a0| 3d 32 2a af 0d 00 96 27 | 20 f1 27 27 8a 32 35 29 |=2*....'| .''.25)|
|000001b0| 3b 22 4c 75 6e 61 72 20 | 61 6e 64 20 73 6f 6c 61 |;"Lunar |and sola|
|000001c0| 72 20 65 63 6c 69 70 73 | 65 73 22 0d 00 a0 15 20 |r eclips|es".... |
|000001d0| f1 3a 43 4f 55 4e 54 45 | 52 3d 30 3a 53 57 3d 30 |.:COUNTE|R=0:SW=0|
|000001e0| 0d 00 aa 17 20 e7 20 46 | 4c 41 47 28 31 31 29 3d |.... . F|LAG(11)=|
|000001f0| 31 20 8c 8d 64 70 40 0d | 00 b4 2f 20 e8 22 47 65 |1 ..dp@.|../ ."Ge|
|00000200| 6f 67 2e 20 6c 6f 6e 67 | 69 74 75 64 65 20 28 57 |og. long|itude (W|
|00000210| 20 6e 65 67 2e 20 44 2c | 4d 2c 53 29 22 3b 58 44 | neg. D,|M,S)";XD|
|00000220| 2c 58 4d 2c 58 53 0d 00 | be 1a 20 53 57 31 3d 2d |,XM,XS..|.. SW1=-|
|00000230| 31 3a f2 4d 69 6e 73 65 | 63 3a 4c 4f 4e 47 3d 58 |1:.Minse|c:LONG=X|
|00000240| 0d 00 c8 2f 20 e8 22 47 | 65 6f 67 72 61 70 68 69 |.../ ."G|eographi|
|00000250| 63 61 6c 20 6c 61 74 69 | 74 75 64 65 20 20 28 44 |cal lati|tude  (D|
|00000260| 2c 4d 2c 53 29 22 3b 58 | 44 2c 58 4d 2c 58 53 0d |,M,S)";X|D,XM,XS.|
|00000270| 00 d2 18 20 f2 4d 69 6e | 73 65 63 3a 50 48 49 3d |... .Min|sec:PHI=|
|00000280| a4 52 41 44 28 58 29 0d | 00 dc 26 20 e8 22 48 65 |.RAD(X).|..& ."He|
|00000290| 69 67 68 74 20 61 62 6f | 76 65 20 73 65 61 2d 6c |ight abo|ve sea-l|
|000002a0| 65 76 65 6c 20 28 6d 29 | 22 3b 48 54 31 0d 00 e6 |evel (m)|";HT1...|
|000002b0| 11 20 e7 20 53 57 3d 31 | 20 8c 8d 54 44 41 0d 00 |. . SW=1| ..TDA..|
|000002c0| f0 26 20 e8 22 53 74 61 | 72 74 69 6e 67 20 64 61 |.& ."Sta|rting da|
|000002d0| 74 65 20 28 44 2c 4d 2c | 59 29 22 3b 44 59 2c 4d |te (D,M,|Y)";DY,M|
|000002e0| 4e 2c 59 52 0d 00 fa 1b | 20 e8 22 48 6f 77 20 6d |N,YR....| ."How m|
|000002f0| 61 6e 79 20 6d 6f 6e 74 | 68 73 22 3b 4e 4d 4f 0d |any mont|hs";NMO.|
|00000300| 01 04 15 20 f1 3a 48 54 | 3d 48 54 31 2f 36 33 37 |... .:HT|=HT1/637|
|00000310| 38 31 34 30 0d 01 0e 27 | 20 e7 20 53 57 3d 30 20 |8140...'| . SW=0 |
|00000320| 8c 20 54 50 24 3d 22 53 | 22 3a 43 4f 55 4e 54 45 |. TP$="S|":COUNTE|
|00000330| 52 3d 43 4f 55 4e 54 45 | 52 2b 31 0d 01 18 18 20 |R=COUNTE|R+1.... |
|00000340| 46 4c 41 47 28 33 29 3d | 30 3a 46 4c 41 47 28 35 |FLAG(3)=|0:FLAG(5|
|00000350| 29 3d 30 0d 01 22 12 20 | f2 45 63 6c 69 70 73 65 |)=0..". |.Eclipse|
|00000360| 3a 53 57 3d 30 0d 01 2c | 20 20 f1 22 2e 2e 2e 6f |:SW=0..,|  ."...o|
|00000370| 6e 20 22 3b 44 59 30 3b | 22 2f 22 3b 4d 4e 3b 22 |n ";DY0;|"/";MN;"|
|00000380| 2f 22 3b 59 52 0d 01 36 | 13 20 e7 20 45 52 52 36 |/";YR..6|. . ERR6|
|00000390| 3d 32 20 8c 8d 44 4e 42 | 0d 01 40 15 20 e7 20 45 |=2 ..DNB|..@. . E|
|000003a0| 52 52 36 20 3c 3e 30 20 | 8c 8d 44 6c 42 0d 01 4a |RR6 <>0 |..DlB..J|
|000003b0| 26 20 e7 20 54 50 24 3d | 22 4c 22 20 f1 3a f1 8a |& . TP$=|"L" .:..|
|000003c0| 32 30 29 3b 22 4c 75 6e | 61 72 20 65 63 6c 69 70 |20);"Lun|ar eclip|
|000003d0| 73 65 22 0d 01 54 26 20 | e7 20 54 50 24 3d 22 53 |se"..T& |. TP$="S|
|000003e0| 22 20 f1 3a f1 8a 32 30 | 29 3b 22 53 6f 6c 61 72 |" .:..20|);"Solar|
|000003f0| 20 65 63 6c 69 70 73 65 | 22 0d 01 5e 1a 20 f1 8a | eclipse|"..^. ..|
|00000400| 32 30 29 3b 22 2d 2d 2d | 2d 2d 20 2d 2d 2d 2d 2d |20);"---|-- -----|
|00000410| 2d 2d 22 0d 01 68 1f 20 | 58 3d a4 55 4e 57 28 5a |--"..h. |X=.UNW(Z|
|00000420| 31 48 2b 38 2e 33 33 33 | 33 33 33 45 2d 33 2c 32 |1H+8.333|333E-3,2|
|00000430| 34 29 0d 01 72 14 20 53 | 57 31 3d 31 3a f2 4d 69 |4)..r. S|W1=1:.Mi|
|00000440| 6e 73 65 63 3a f1 0d 01 | 7c 40 20 f1 8a 31 30 29 |nsec:...||@ ..10)|
|00000450| 3b 22 55 54 20 6f 66 20 | 6d 61 78 69 6d 75 6d 20 |;"UT of |maximum |
|00000460| 65 63 6c 69 70 73 65 3b | 22 3b 8a 33 35 29 3b 58 |eclipse;|";.35);X|
|00000470| 44 3b 22 3a 22 3b 58 4d | 3a 58 44 41 3d 58 44 3a |D;":";XM|:XDA=XD:|
|00000480| 58 4d 41 3d 58 4d 0d 01 | 86 28 20 58 3d a4 55 4e |XMA=XM..|.( X=.UN|
|00000490| 57 28 5a 32 48 31 2b 38 | 2e 33 33 33 33 33 33 45 |W(Z2H1+8|.333333E|
|000004a0| 2d 33 2c 32 34 29 3a f2 | 4d 69 6e 73 65 63 0d 01 |-3,24):.|Minsec..|
|000004b0| 90 2d 20 f1 8a 31 30 29 | 3b 22 65 63 6c 69 70 73 |.- ..10)|;"eclips|
|000004c0| 65 20 62 65 67 69 6e 73 | 20 61 74 22 3b 8a 33 35 |e begins| at";.35|
|000004d0| 29 3b 58 44 3b 22 3a 22 | 3b 58 4d 0d 01 9a 28 20 |);XD;":"|;XM...( |
|000004e0| 58 3d a4 55 4e 57 28 5a | 32 48 32 2b 38 2e 33 33 |X=.UNW(Z|2H2+8.33|
|000004f0| 33 33 33 33 45 2d 33 2c | 32 34 29 3a f2 4d 69 6e |3333E-3,|24):.Min|
|00000500| 73 65 63 0d 01 a4 2b 20 | f1 8a 31 30 29 3b 22 65 |sec...+ |..10);"e|
|00000510| 63 6c 69 70 73 65 20 65 | 6e 64 73 20 61 74 22 3b |clipse e|nds at";|
|00000520| 8a 33 35 29 3b 58 44 3b | 22 3a 22 3b 58 4d 0d 01 |.35);XD;|":";XM..|
|00000530| ae 14 20 e7 20 54 50 24 | 3d 22 53 22 20 8c 8d 54 |.. . TP$|="S" ..T|
|00000540| 66 42 0d 01 b8 16 20 e7 | 20 45 52 52 37 20 3c 3e |fB.... .| ERR7 <>|
|00000550| 20 31 20 8c 8d 64 4c 41 | 0d 01 c2 29 20 f1 8a 31 | 1 ..dLA|...) ..1|
|00000560| 30 29 3b 22 2a 2a 20 6e | 6f 20 75 6d 62 72 61 6c |0);"** n|o umbral|
|00000570| 20 70 68 61 73 65 20 2a | 2a 22 3a e5 20 8d 54 66 | phase *|*":. .Tf|
|00000580| 42 0d 01 cc 28 20 58 3d | a4 55 4e 57 28 5a 32 48 |B...( X=|.UNW(Z2H|
|00000590| 33 2b 38 2e 33 33 33 33 | 33 33 45 2d 33 2c 32 34 |3+8.3333|33E-3,24|
|000005a0| 29 3a f2 4d 69 6e 73 65 | 63 0d 01 d6 32 20 f1 8a |):.Minse|c...2 ..|
|000005b0| 31 30 29 3b 22 75 6d 62 | 72 61 6c 20 70 68 61 73 |10);"umb|ral phas|
|000005c0| 65 20 62 65 67 69 6e 73 | 20 61 74 22 3b 8a 33 35 |e begins| at";.35|
|000005d0| 29 3b 58 44 3b 22 3a 22 | 3b 58 4d 0d 01 e0 28 20 |);XD;":"|;XM...( |
|000005e0| 58 3d a4 55 4e 57 28 5a | 32 48 34 2b 38 2e 33 33 |X=.UNW(Z|2H4+8.33|
|000005f0| 33 33 33 33 45 2d 33 2c | 32 34 29 3a f2 4d 69 6e |3333E-3,|24):.Min|
|00000600| 73 65 63 0d 01 ea 30 20 | f1 8a 31 30 29 3b 22 75 |sec...0 |..10);"u|
|00000610| 6d 62 72 61 6c 20 70 68 | 61 73 65 20 65 6e 64 73 |mbral ph|ase ends|
|00000620| 20 61 74 22 3b 8a 33 35 | 29 3b 58 44 3b 22 3a 22 | at";.35|);XD;":"|
|00000630| 3b 58 4d 0d 01 f4 31 20 | e7 20 45 52 52 37 3d 32 |;XM...1 |. ERR7=2|
|00000640| 20 f1 8a 31 30 29 3b 22 | 2a 2a 20 6e 6f 20 74 6f | ..10);"|** no to|
|00000650| 74 61 6c 20 70 68 61 73 | 65 20 2a 2a 22 3a e5 20 |tal phas|e **":. |
|00000660| 8d 54 66 42 0d 01 fe 28 | 20 58 3d a4 55 4e 57 28 |.TfB...(| X=.UNW(|
|00000670| 5a 32 48 35 2b 38 2e 33 | 33 33 33 33 33 45 2d 33 |Z2H5+8.3|33333E-3|
|00000680| 2c 32 34 29 3a f2 4d 69 | 6e 73 65 63 0d 02 08 2e |,24):.Mi|nsec....|
|00000690| 20 f1 8a 31 30 29 3b 22 | 74 6f 74 61 6c 20 70 68 | ..10);"|total ph|
|000006a0| 61 73 65 20 62 65 67 69 | 6e 73 22 3b 8a 33 35 29 |ase begi|ns";.35)|
|000006b0| 3b 58 44 3b 22 3a 22 3b | 58 4d 0d 02 12 28 20 58 |;XD;":";|XM...( X|
|000006c0| 3d a4 55 4e 57 28 5a 32 | 48 36 2b 38 2e 33 33 33 |=.UNW(Z2|H6+8.333|
|000006d0| 33 33 33 45 2d 33 2c 32 | 34 29 3a f2 4d 69 6e 73 |333E-3,2|4):.Mins|
|000006e0| 65 63 0d 02 1c 2c 20 f1 | 8a 31 30 29 3b 22 74 6f |ec..., .|.10);"to|
|000006f0| 74 61 6c 20 70 68 61 73 | 65 20 65 6e 64 73 22 3b |tal phas|e ends";|
|00000700| 8a 33 35 29 3b 58 44 3b | 22 3a 22 3b 58 4d 0d 02 |.35);XD;|":";XM..|
|00000710| 26 2e 20 f1 8a 31 30 29 | 3b 22 65 63 6c 69 70 73 |&. ..10)|;"eclips|
|00000720| 65 20 6d 61 67 6e 69 74 | 75 64 65 20 22 3b a4 52 |e magnit|ude ";.R|
|00000730| 4f 55 28 4d 47 2c 31 30 | 30 29 3a f1 0d 02 30 25 |OU(MG,10|0):...0%|
|00000740| 20 e8 22 44 69 73 70 6c | 61 79 20 74 68 65 20 65 | ."Displ|ay the e|
|00000750| 63 6c 69 70 73 65 20 28 | 59 2f 4e 29 22 3b 41 4e |clipse (|Y/N)";AN|
|00000760| 24 0d 02 3a 17 20 e7 20 | 41 4e 24 3d 22 59 22 20 |$..:. . |AN$="Y" |
|00000770| f2 44 69 73 70 6c 61 79 | 0d 02 44 14 20 e7 20 54 |.Display|..D. . T|
|00000780| 50 24 3d 22 4c 22 20 8c | 8d 44 6c 42 0d 02 4e 22 |P$="L" .|.DlB..N"|
|00000790| 20 e8 22 41 6e 6f 74 68 | 65 72 20 6c 6f 63 61 74 | ."Anoth|er locat|
|000007a0| 69 6f 6e 20 28 59 2f 4e | 29 22 3b 41 4e 24 0d 02 |ion (Y/N|)";AN$..|
|000007b0| 58 14 20 e7 20 41 4e 24 | 3d 22 4e 22 20 8c 8d 44 |X. . AN$|="N" ..D|
|000007c0| 6c 42 0d 02 62 1c 20 53 | 57 31 3d 31 3a 46 4c 41 |lB..b. S|W1=1:FLA|
|000007d0| 47 28 31 31 29 3d 30 3a | e5 20 8d 74 74 40 0d 02 |G(11)=0:|. .tt@..|
|000007e0| 6c 1f 20 e7 20 54 50 24 | 3d 22 53 22 20 8c 20 54 |l. . TP$|="S" . T|
|000007f0| 50 24 3d 22 4c 22 3a e5 | 20 8d 54 58 41 0d 02 76 |P$="L":.| .TXA..v|
|00000800| 20 20 44 59 3d 44 59 30 | 2b 31 34 3a 46 4c 41 47 |  DY=DY0|+14:FLAG|
|00000810| 28 31 29 3d 30 3a f2 4a | 75 6c 64 61 79 0d 02 80 |(1)=0:.J|ulday...|
|00000820| 16 20 46 4c 41 47 28 32 | 29 3d 30 3a f2 43 61 6c |. FLAG(2|)=0:.Cal|
|00000830| 64 61 79 0d 02 8a 18 20 | e7 20 43 4f 55 4e 54 45 |day.... |. COUNTE|
|00000840| 52 3c 4e 4d 4f 20 8c 8d | 54 4e 41 0d 02 94 06 20 |R<NMO ..|TNA.... |
|00000850| f1 0d 02 9e 17 20 e8 22 | 41 67 61 69 6e 20 28 59 |..... ."|Again (Y|
|00000860| 2f 4e 29 22 3b 41 4e 24 | 0d 02 a8 10 20 e7 20 41 |/N)";AN$|.... . A|
|00000870| 4e 24 3d 22 4e 22 20 e0 | 0d 02 b2 22 20 e8 22 41 |N$="N" .|..." ."A|
|00000880| 6e 6f 74 68 65 72 20 6c | 6f 63 61 74 69 6f 6e 20 |nother l|ocation |
|00000890| 28 59 2f 4e 29 22 3b 41 | 4e 24 0d 02 bc 1b 20 e7 |(Y/N)";A|N$.... .|
|000008a0| 20 41 4e 24 3d 22 59 22 | 20 8c 20 46 4c 41 47 28 | AN$="Y"| . FLAG(|
|000008b0| 31 31 29 3d 30 0d 02 c6 | 0b 20 e5 20 8d 74 60 40 |11)=0...|. . .t`@|
|000008c0| 0d 02 d0 06 20 3a 0d 02 | da 0d 20 dd f2 4d 69 6e |.... :..|.. ..Min|
|000008d0| 73 65 63 0d 02 e4 1d 20 | e7 20 53 57 31 3d 31 20 |sec.... |. SW1=1 |
|000008e0| f2 4d 69 6e 73 65 63 5f | 49 6e 74 65 67 65 72 73 |.Minsec_|Integers|
|000008f0| 0d 02 ee 1d 20 e7 20 53 | 57 31 3d 2d 31 20 f2 4d |.... . S|W1=-1 .M|
|00000900| 69 6e 73 65 63 5f 44 65 | 63 69 6d 61 6c 0d 02 f8 |insec_De|cimal...|
|00000910| 06 20 e1 0d 03 02 06 20 | 3a 0d 03 0c 16 20 dd f2 |. ..... |:.... ..|
|00000920| 4d 69 6e 73 65 63 5f 49 | 6e 74 65 67 65 72 73 0d |Minsec_I|ntegers.|
|00000930| 03 16 1d 20 53 4e 3d b4 | 28 58 29 3a 58 50 3d 94 |... SN=.|(X):XP=.|
|00000940| 28 58 29 3a 58 44 3d a8 | 28 58 50 29 0d 03 20 19 |(X):XD=.|(XP).. .|
|00000950| 20 41 3d 28 58 50 2d 58 | 44 29 2a 36 30 3a 58 4d | A=(XP-X|D)*60:XM|
|00000960| 3d a8 28 41 29 0d 03 2a | 1c 20 58 53 3d a8 28 28 |=.(A)..*|. XS=.((|
|00000970| 41 2d 58 4d 29 2a 36 30 | 30 2b 30 2e 35 29 2f 31 |A-XM)*60|0+0.5)/1|
|00000980| 30 0d 03 34 0b 20 53 24 | 3d 22 2b 22 0d 03 3e 16 |0..4. S$|="+"..>.|
|00000990| 20 e7 20 53 4e 3d 2d 31 | 20 20 8c 20 53 24 3d 22 | . SN=-1|  . S$="|
|000009a0| 2d 22 0d 03 48 06 20 e1 | 0d 03 52 06 20 3a 0d 03 |-"..H. .|..R. :..|
|000009b0| 5c 15 20 dd f2 4d 69 6e | 73 65 63 5f 44 65 63 69 |\. ..Min|sec_Deci|
|000009c0| 6d 61 6c 0d 03 66 0a 20 | 53 4e 3d 2b 31 0d 03 70 |mal..f. |SN=+1..p|
|000009d0| 21 20 e7 20 58 44 3c 30 | 20 84 20 58 4d 3c 30 20 |! . XD<0| . XM<0 |
|000009e0| 84 20 58 53 3c 30 20 8c | 20 53 4e 3d 2d 31 0d 03 |. XS<0 .| SN=-1..|
|000009f0| 7a 22 20 58 44 31 3d 94 | 28 58 44 29 3a 58 4d 31 |z" XD1=.|(XD):XM1|
|00000a00| 3d 94 28 58 4d 29 3a 58 | 53 31 3d 94 28 58 53 29 |=.(XM):X|S1=.(XS)|
|00000a10| 0d 03 84 23 20 58 3d 28 | 28 28 28 58 53 31 2f 36 |...# X=(|(((XS1/6|
|00000a20| 30 29 2b 58 4d 31 29 2f | 36 30 29 2b 58 44 31 29 |0)+XM1)/|60)+XD1)|
|00000a30| 2a 53 4e 0d 03 8e 06 20 | e1 0d 03 98 06 20 3a 0d |*SN.... |..... :.|
|00000a40| 03 a2 0d 20 dd f2 4a 75 | 6c 64 61 79 0d 03 ac 12 |... ..Ju|lday....|
|00000a50| 20 e7 20 46 4c 41 47 28 | 31 29 3d 31 20 e1 0d 03 | . FLAG(|1)=1 ...|
|00000a60| b6 20 20 4d 4e 31 3d 4d | 4e 3a 59 52 31 3d 59 52 |.  MN1=M|N:YR1=YR|
|00000a70| 3a 46 4c 41 47 28 31 29 | 3d 31 3a 42 3d 30 0d 03 |:FLAG(1)|=1:B=0..|
|00000a80| c0 15 20 e7 20 59 52 31 | 3c 30 20 8c 20 59 52 31 |.. . YR1|<0 . YR1|
|00000a90| 2b 3d 31 0d 03 ca 1c 20 | e7 20 4d 4e 3c 33 20 8c |+=1.... |. MN<3 .|
|00000aa0| 20 4d 4e 31 2b 3d 31 32 | 3a 59 52 31 2d 3d 31 0d | MN1+=12|:YR1-=1.|
|00000ab0| 03 d4 15 20 e7 20 59 52 | 3c 31 35 38 32 20 8c 20 |... . YR|<1582 . |
|00000ac0| 8d 64 7c 43 0d 03 de 1d | 20 e7 20 59 52 3d 31 35 |.d|C....| . YR=15|
|00000ad0| 38 32 20 80 20 4d 4e 3c | 31 30 20 8c 20 8d 64 7c |82 . MN<|10 . .d||
|00000ae0| 43 0d 03 e8 25 20 e7 20 | 59 52 3d 31 35 38 32 20 |C...% . |YR=1582 |
|00000af0| 80 20 4d 4e 3d 31 30 20 | 80 20 44 59 3c 31 35 20 |. MN=10 |. DY<15 |
|00000b00| 8c 20 8d 64 7c 43 0d 03 | f2 1e 20 41 3d a8 28 59 |. .d|C..|.. A=.(Y|
|00000b10| 52 31 2f 31 30 30 29 3a | 42 3d 32 2d 41 2b a8 28 |R1/100):|B=2-A+.(|
|00000b20| 41 2f 34 29 0d 03 fc 13 | 20 e7 20 59 52 31 3c 30 |A/4)....| . YR1<0|
|00000b30| 20 8c 20 8d 54 50 44 0d | 04 06 22 20 43 3d a8 28 | . .TPD.|.." C=.(|
|00000b40| 33 36 35 2e 32 35 2a 59 | 52 31 29 2d 36 39 34 30 |365.25*Y|R1)-6940|
|00000b50| 32 35 3a e5 20 8d 54 5a | 44 0d 04 10 25 20 43 3d |25:. .TZ|D...% C=|
|00000b60| a4 49 54 47 28 28 33 36 | 35 2e 32 35 2a 59 52 31 |.ITG((36|5.25*YR1|
|00000b70| 29 2d 30 2e 37 35 29 2d | 36 39 34 30 32 35 0d 04 |)-0.75)-|694025..|
|00000b80| 1a 19 20 44 3d a8 28 33 | 30 2e 36 30 30 31 2a 28 |.. D=.(3|0.6001*(|
|00000b90| 4d 4e 31 2b 31 29 29 0d | 04 24 15 20 44 4a 44 3d |MN1+1)).|.$. DJD=|
|00000ba0| 42 2b 43 2b 44 2b 44 59 | 2d 30 2e 35 0d 04 2e 06 |B+C+D+DY|-0.5....|
|00000bb0| 20 e1 0d 04 38 06 20 3a | 0d 04 42 0d 20 dd f2 43 | ...8. :|..B. ..C|
|00000bc0| 61 6c 64 61 79 0d 04 4c | 12 20 e7 20 46 4c 41 47 |alday..L|. . FLAG|
|00000bd0| 28 32 29 3d 31 20 e1 0d | 04 56 1e 20 44 3d 44 4a |(2)=1 ..|.V. D=DJ|
|00000be0| 44 2b 30 2e 35 3a 49 3d | a4 4c 49 46 28 44 29 3a |D+0.5:I=|.LIF(D):|
|00000bf0| 46 3d 44 2d 49 0d 04 60 | 15 20 e7 20 46 3d 31 20 |F=D-I..`|. . F=1 |
|00000c00| 8c 20 46 3d 30 3a 49 2b | 3d 31 0d 04 6a 1a 20 e7 |. F=0:I+|=1..j. .|
|00000c10| 20 49 20 3c 3d 20 2d 31 | 31 35 38 36 30 20 8c 20 | I <= -1|15860 . |
|00000c20| 8d 74 48 44 0d 04 74 29 | 20 41 3d a4 4c 49 46 28 |.tHD..t)| A=.LIF(|
|00000c30| 28 49 2f 33 36 35 32 34 | 2e 32 35 29 2b 39 2e 39 |(I/36524|.25)+9.9|
|00000c40| 38 33 35 37 32 36 45 2d | 31 29 2b 31 34 0d 04 7e |835726E-|1)+14..~|
|00000c50| 16 20 49 3d 49 2b 31 2b | 41 2d a4 4c 49 46 28 41 |. I=I+1+|A-.LIF(A|
|00000c60| 2f 34 29 0d 04 88 22 20 | 42 3d a4 4c 49 46 28 28 |/4)..." |B=.LIF((|
|00000c70| 49 2f 33 36 35 2e 32 35 | 29 2b 38 2e 30 32 36 30 |I/365.25|)+8.0260|
|00000c80| 31 45 2d 31 29 0d 04 92 | 29 20 43 45 3d 49 2d a4 |1E-1)...|) CE=I-.|
|00000c90| 4c 49 46 28 28 33 36 35 | 2e 32 35 2a 42 29 2b 37 |LIF((365|.25*B)+7|
|00000ca0| 2e 35 30 30 30 31 45 2d | 31 29 2b 34 31 36 0d 04 |.50001E-|1)+416..|
|00000cb0| 9c 1e 20 47 3d a4 4c 49 | 46 28 43 45 2f 33 30 2e |.. G=.LI|F(CE/30.|
|00000cc0| 36 30 30 31 29 3a 4d 4e | 3d 47 2d 31 0d 04 a6 26 |6001):MN|=G-1...&|
|00000cd0| 20 44 59 3d 43 45 2d a4 | 4c 49 46 28 33 30 2e 36 | DY=CE-.|LIF(30.6|
|00000ce0| 30 30 31 2a 47 29 2b 46 | 3a 59 52 3d 42 2b 31 38 |001*G)+F|:YR=B+18|
|00000cf0| 39 39 0d 04 b0 17 20 e7 | 20 47 3e 31 33 2e 35 20 |99.... .| G>13.5 |
|00000d00| 8c 20 4d 4e 3d 47 2d 31 | 33 0d 04 ba 19 20 e7 20 |. MN=G-1|3.... . |
|00000d10| 4d 4e 3c 32 2e 35 20 8c | 20 59 52 3d 42 2b 31 39 |MN<2.5 .| YR=B+19|
|00000d20| 30 30 0d 04 c4 13 20 e7 | 20 59 52 3c 31 20 8c 20 |00.... .| YR<1 . |
|00000d30| 59 52 2d 3d 31 0d 04 ce | 0e 20 46 4c 41 47 28 32 |YR-=1...|. FLAG(2|
|00000d40| 29 3d 31 0d 04 d8 06 20 | e1 0d 04 e2 06 20 3a 0d |)=1.... |..... :.|
|00000d50| 04 ec 0c 20 dd f2 47 74 | 69 6d 65 0d 04 f6 17 20 |... ..Gt|ime.... |
|00000d60| e7 20 46 4c 41 47 28 33 | 29 3d 31 20 8c 20 8d 44 |. FLAG(3|)=1 . .D|
|00000d70| 46 45 0d 05 00 1c 20 58 | 4d 4e 3d 4d 4e 3a 58 44 |FE.... X|MN=MN:XD|
|00000d80| 59 3d 44 59 3a 46 4c 41 | 47 28 33 29 3d 31 0d 05 |Y=DY:FLA|G(3)=1..|
|00000d90| 0a 1f 20 46 4c 41 47 28 | 31 29 3d 30 3a f2 4a 75 |.. FLAG(|1)=0:.Ju|
|00000da0| 6c 64 61 79 3a 58 44 4a | 44 3d 44 4a 44 0d 05 14 |lday:XDJ|D=DJD...|
|00000db0| 18 20 4d 4e 3d 31 3a 44 | 59 3d 30 3a 46 4c 41 47 |. MN=1:D|Y=0:FLAG|
|00000dc0| 28 31 29 3d 30 0d 05 1e | 18 20 f2 4a 75 6c 64 61 |(1)=0...|. .Julda|
|00000dd0| 79 3a 54 3d 44 4a 44 2f | 33 36 35 32 35 0d 05 28 |y:T=DJD/|36525..(|
|00000de0| 2b 20 52 3d 36 2e 36 34 | 36 30 36 35 36 2b 28 35 |+ R=6.64|60656+(5|
|00000df0| 2e 31 32 36 32 45 2d 32 | 2b 28 54 2a 32 2e 35 38 |.1262E-2|+(T*2.58|
|00000e00| 31 45 2d 35 29 29 2a 54 | 0d 05 32 2a 20 52 31 3d |1E-5))*T|..2* R1=|
|00000e10| 32 34 30 30 2a 28 54 2d | 28 28 59 52 2d 31 39 30 |2400*(T-|((YR-190|
|00000e20| 30 29 2f 31 30 30 29 29 | 3a 42 3d 32 34 2d 52 2d |0)/100))|:B=24-R-|
|00000e30| 52 31 0d 05 3c 21 20 54 | 30 3d 28 28 58 44 4a 44 |R1..<! T|0=((XDJD|
|00000e40| 2d 44 4a 44 29 2a 36 2e | 35 37 30 39 38 45 2d 32 |-DJD)*6.|57098E-2|
|00000e50| 29 2d 42 0d 05 46 13 20 | e7 20 53 57 32 3d 31 20 |)-B..F. |. SW2=1 |
|00000e60| 8c 20 8d 44 78 45 0d 05 | 50 14 20 e7 20 54 30 3c |. .DxE..|P. . T0<|
|00000e70| 30 20 8c 20 54 30 2b 3d | 32 34 0d 05 5a 0f 20 47 |0 . T0+=|24..Z. G|
|00000e80| 54 4d 3d 54 49 4d 2d 54 | 30 0d 05 64 16 20 e7 20 |TM=TIM-T|0..d. . |
|00000e90| 47 54 4d 3c 30 20 8c 20 | 47 54 4d 2b 3d 32 34 0d |GTM<0 . |GTM+=24.|
|00000ea0| 05 6e 22 20 47 54 4d 3d | 47 54 4d 2a 39 2e 39 37 |.n" GTM=|GTM*9.97|
|00000eb0| 32 36 39 35 36 37 37 45 | 2d 31 3a e5 20 8d 74 56 |2695677E|-1:. .tV|
|00000ec0| 45 0d 05 78 1d 20 47 54 | 4d 3d 28 54 49 4d 2a 31 |E..x. GT|M=(TIM*1|
|00000ed0| 2e 30 30 32 37 33 37 39 | 30 38 29 2b 54 30 0d 05 |.0027379|08)+T0..|
|00000ee0| 82 17 20 e7 20 47 54 4d | 3e 32 34 20 8c 20 47 54 |.. . GTM|>24 . GT|
|00000ef0| 4d 2d 3d 32 34 0d 05 8c | 16 20 e7 20 47 54 4d 3c |M-=24...|. . GTM<|
|00000f00| 30 20 8c 20 47 54 4d 2b | 3d 32 34 0d 05 96 18 20 |0 . GTM+|=24.... |
|00000f10| 58 3d 47 54 4d 3a 53 57 | 31 3d 31 3a f2 4d 69 6e |X=GTM:SW|1=1:.Min|
|00000f20| 73 65 63 0d 05 a0 16 20 | 48 53 3d 58 44 3a 4d 53 |sec.... |HS=XD:MS|
|00000f30| 3d 58 4d 3a 53 53 3d 58 | 53 0d 05 aa 1b 20 4d 4e |=XM:SS=X|S.... MN|
|00000f40| 3d 58 4d 4e 3a 44 59 3d | 58 44 59 3a 44 4a 44 3d |=XMN:DY=|XDY:DJD=|
|00000f50| 58 44 4a 44 0d 05 b4 06 | 20 e1 0d 05 be 06 20 3a |XDJD....| ..... :|
|00000f60| 0d 05 c8 0c 20 dd f2 48 | 72 61 6e 67 0d 05 d2 16 |.... ..H|rang....|
|00000f70| 20 4c 53 54 3d 47 53 54 | 2b 28 4c 4f 4e 47 2f 31 | LST=GST|+(LONG/1|
|00000f80| 35 29 0d 05 dc 1a 20 e7 | 20 4c 53 54 3e 32 34 20 |5).... .| LST>24 |
|00000f90| 8c 20 4c 53 54 3d 4c 53 | 54 2d 32 34 0d 05 e6 19 |. LST=LS|T-24....|
|00000fa0| 20 e7 20 4c 53 54 3c 30 | 20 8c 20 4c 53 54 3d 4c | . LST<0| . LST=L|
|00000fb0| 53 54 2b 32 34 0d 05 f0 | 0c 20 50 3d 4c 53 54 2d |ST+24...|. P=LST-|
|00000fc0| 58 0d 05 fa 13 20 e7 20 | 50 3c 30 20 8c 20 50 3d |X.... . |P<0 . P=|
|00000fd0| 50 2b 32 34 0d 06 04 06 | 20 e1 0d 06 0e 06 20 3a |P+24....| ..... :|
|00000fe0| 0d 06 18 0c 20 dd f2 4f | 62 6c 69 71 0d 06 22 12 |.... ..O|bliq..".|
|00000ff0| 20 e7 20 46 4c 41 47 28 | 35 29 3d 31 20 e1 0d 06 | . FLAG(|5)=1 ...|
|00001000| 2c 0e 20 46 4c 41 47 28 | 35 29 3d 31 0d 06 36 18 |,. FLAG(|5)=1..6.|
|00001010| 20 f2 4a 75 6c 64 61 79 | 3a 54 3d 44 4a 44 2f 33 | .Julday|:T=DJD/3|
|00001020| 36 35 32 35 0d 06 40 2b | 20 43 3d 28 28 28 2d 31 |6525..@+| C=(((-1|
|00001030| 2e 38 31 45 2d 33 2a 54 | 29 2b 35 2e 39 45 2d 33 |.81E-3*T|)+5.9E-3|
|00001040| 29 2a 54 2b 34 2e 36 38 | 34 35 45 31 29 2a 54 0d |)*T+4.68|45E1)*T.|
|00001050| 06 4a 1f 20 45 50 53 3d | 32 2e 33 34 35 32 32 39 |.J. EPS=|2.345229|
|00001060| 34 34 34 45 31 2d 28 43 | 2f 33 36 30 30 29 0d 06 |444E1-(C|/3600)..|
|00001070| 54 1c 20 45 50 53 52 3d | 45 50 53 2a 31 2e 37 35 |T. EPSR=|EPS*1.75|
|00001080| 34 33 32 39 32 35 32 45 | 2d 32 0d 06 5e 06 20 e1 |4329252E|-2..^. .|
|00001090| 0d 06 68 06 20 3a 0d 06 | 72 0c 20 dd f2 45 71 65 |..h. :..|r. ..Eqe|
|000010a0| 63 6c 0d 06 7c 17 20 e7 | 20 46 4c 41 47 28 37 29 |cl..|. .| FLAG(7)|
|000010b0| 3d 31 20 8c 20 8d 74 6e | 46 0d 06 86 0e 20 46 4c |=1 . .tn|F.... FL|
|000010c0| 41 47 28 37 29 3d 31 0d | 06 90 19 20 e7 20 46 4c |AG(7)=1.|... . FL|
|000010d0| 41 47 28 36 29 3d 30 20 | 8c 20 44 45 50 53 3d 30 |AG(6)=0 |. DEPS=0|
|000010e0| 0d 06 9a 1f 20 f2 4f 62 | 6c 69 71 3a 45 50 53 31 |.... .Ob|liq:EPS1|
|000010f0| 3d a4 52 41 44 28 45 50 | 53 2b 44 45 50 53 29 0d |=.RAD(EP|S+DEPS).|
|00001100| 06 a4 1e 20 53 45 50 53 | 3d b5 28 45 50 53 31 29 |... SEPS|=.(EPS1)|
|00001110| 3a 43 45 50 53 3d 9b 28 | 45 50 53 31 29 0d 06 ae |:CEPS=.(|EPS1)...|
|00001120| 14 20 43 59 3d 9b 28 59 | 29 3a 53 59 3d b5 28 59 |. CY=.(Y|):SY=.(Y|
|00001130| 29 0d 06 b8 1d 20 e7 20 | 94 28 43 59 29 3c 31 45 |).... . |.(CY)<1E|
|00001140| 2d 32 30 20 8c 20 43 59 | 3d 31 45 2d 32 30 0d 06 |-20 . CY|=1E-20..|
|00001150| c2 1d 20 54 59 3d 53 59 | 2f 43 59 3a 43 58 3d 9b |.. TY=SY|/CY:CX=.|
|00001160| 28 58 29 3a 53 58 3d b5 | 28 58 29 0d 06 cc 22 20 |(X):SX=.|(X)..." |
|00001170| 53 51 3d 28 53 59 2a 43 | 45 50 53 29 2d 28 43 59 |SQ=(SY*C|EPS)-(CY|
|00001180| 2a 53 45 50 53 2a 53 58 | 2a 53 57 33 29 0d 06 d6 |*SEPS*SX|*SW3)...|
|00001190| 29 20 51 3d a4 41 53 4e | 28 53 51 29 3a 41 3d 28 |) Q=.ASN|(SQ):A=(|
|000011a0| 53 58 2a 43 45 50 53 29 | 2b 28 54 59 2a 53 45 50 |SX*CEPS)|+(TY*SEP|
|000011b0| 53 2a 53 57 33 29 0d 06 | e0 0e 20 50 3d 99 28 41 |S*SW3)..|.. P=.(A|
|000011c0| 2f 43 58 29 0d 06 ea 13 | 20 e7 20 43 58 3c 30 20 |/CX)....| . CX<0 |
|000011d0| 8c 20 50 3d 50 2b af 0d | 06 f4 16 20 e7 20 50 3e |. P=P+..|... . P>|
|000011e0| 54 50 49 20 8c 20 50 3d | 50 2d 54 50 49 0d 06 fe |TPI . P=|P-TPI...|
|000011f0| 14 20 e7 20 50 3c 30 20 | 8c 20 50 3d 50 2b 54 50 |. . P<0 |. P=P+TP|
|00001200| 49 0d 07 08 06 20 e1 0d | 07 12 06 20 3a 0d 07 1c |I.... ..|... :...|
|00001210| 0c 20 dd f2 4e 75 74 61 | 74 0d 07 26 12 20 e7 20 |. ..Nuta|t..&. . |
|00001220| 46 4c 41 47 28 36 29 3d | 31 20 e1 0d 07 30 18 20 |FLAG(6)=|1 ...0. |
|00001230| 46 4c 41 47 28 36 29 3d | 31 3a 46 4c 41 47 28 37 |FLAG(6)=|1:FLAG(7|
|00001240| 29 3d 30 0d 07 3a 1f 20 | f2 4a 75 6c 64 61 79 3a |)=0..:. |.Julday:|
|00001250| 54 3d 44 4a 44 2f 33 36 | 35 32 35 3a 54 32 3d 54 |T=DJD/36|525:T2=T|
|00001260| 2a 54 0d 07 44 25 20 41 | 3d 31 2e 30 30 30 30 32 |*T..D% A|=1.00002|
|00001270| 31 33 35 38 45 32 2a 54 | 3a 42 3d 33 36 30 2a 28 |1358E2*T|:B=360*(|
|00001280| 41 2d a8 28 41 29 29 0d | 07 4e 1f 20 4c 53 3d 32 |A-.(A)).|.N. LS=2|
|00001290| 2e 37 39 36 39 36 37 45 | 32 2b 33 2e 30 33 45 2d |.796967E|2+3.03E-|
|000012a0| 34 2a 54 32 2b 42 0d 07 | 58 25 20 41 3d 31 2e 33 |4*T2+B..|X% A=1.3|
|000012b0| 33 36 38 35 35 32 33 31 | 45 33 2a 54 3a 42 3d 33 |36855231|E3*T:B=3|
|000012c0| 36 30 2a 28 41 2d a8 28 | 41 29 29 0d 07 62 20 20 |60*(A-.(|A))..b  |
|000012d0| 4c 44 3d 32 2e 37 30 34 | 33 34 32 45 32 2d 31 2e |LD=2.704|342E2-1.|
|000012e0| 31 33 33 45 2d 33 2a 54 | 32 2b 42 0d 07 6c 25 20 |133E-3*T|2+B..l% |
|000012f0| 41 3d 39 2e 39 39 39 37 | 33 36 30 35 36 45 31 2a |A=9.9997|36056E1*|
|00001300| 54 3a 42 3d 33 36 30 2a | 28 41 2d a8 28 41 29 29 |T:B=360*|(A-.(A))|
|00001310| 0d 07 76 1e 20 4d 53 3d | 33 2e 35 38 34 37 35 38 |..v. MS=|3.584758|
|00001320| 45 32 2d 31 2e 35 45 2d | 34 2a 54 32 2b 42 0d 07 |E2-1.5E-|4*T2+B..|
|00001330| 80 25 20 41 3d 31 2e 33 | 32 35 35 35 32 33 35 39 |.% A=1.3|25552359|
|00001340| 45 33 2a 54 3a 42 3d 33 | 36 30 2a 28 41 2d a8 28 |E3*T:B=3|60*(A-.(|
|00001350| 41 29 29 0d 07 8a 20 20 | 4d 44 3d 32 2e 39 36 31 |A))...  |MD=2.961|
|00001360| 30 34 36 45 32 2b 39 2e | 31 39 32 45 2d 33 2a 54 |046E2+9.|192E-3*T|
|00001370| 32 2b 42 0d 07 94 23 20 | 41 3d 35 2e 33 37 32 36 |2+B...# |A=5.3726|
|00001380| 31 36 36 36 37 2a 54 3a | 42 3d 33 36 30 2a 28 41 |16667*T:|B=360*(A|
|00001390| 2d a8 28 41 29 29 0d 07 | 9e 20 20 4e 4d 3d 32 2e |-.(A))..|.  NM=2.|
|000013a0| 35 39 31 38 33 33 45 32 | 2b 32 2e 30 37 38 45 2d |591833E2|+2.078E-|
|000013b0| 33 2a 54 32 2d 42 0d 07 | a8 1f 20 54 4c 53 3d 32 |3*T2-B..|.. TLS=2|
|000013c0| 2a a4 52 41 44 28 4c 53 | 29 3a 4e 4d 3d a4 52 41 |*.RAD(LS|):NM=.RA|
|000013d0| 44 28 4e 4d 29 0d 07 b2 | 1f 20 54 4e 4d 3d 32 2a |D(NM)...|. TNM=2*|
|000013e0| a4 52 41 44 28 4e 4d 29 | 3a 4d 53 3d a4 52 41 44 |.RAD(NM)|:MS=.RAD|
|000013f0| 28 4d 53 29 0d 07 bc 1f | 20 54 4c 44 3d 32 2a a4 |(MS)....| TLD=2*.|
|00001400| 52 41 44 28 4c 44 29 3a | 4d 44 3d a4 52 41 44 28 |RAD(LD):|MD=.RAD(|
|00001410| 4d 44 29 0d 07 c6 da 20 | 44 50 53 49 3d 28 2d 31 |MD).... |DPSI=(-1|
|00001420| 37 2e 32 33 32 37 2d 31 | 2e 37 33 37 45 2d 32 2a |7.2327-1|.737E-2*|
|00001430| 54 29 2a b5 28 4e 4d 29 | 2b 28 2d 31 2e 32 37 32 |T)*.(NM)|+(-1.272|
|00001440| 39 2d 31 2e 33 45 2d 34 | 2a 54 29 2a b5 28 54 4c |9-1.3E-4|*T)*.(TL|
|00001450| 53 29 2b 32 2e 30 38 38 | 45 2d 31 2a b5 28 54 4e |S)+2.088|E-1*.(TN|
|00001460| 4d 29 2d 32 2e 30 33 37 | 45 2d 31 2a b5 28 54 4c |M)-2.037|E-1*.(TL|
|00001470| 44 29 2b 28 31 2e 32 36 | 31 45 2d 31 2d 33 2e 31 |D)+(1.26|1E-1-3.1|
|00001480| 45 2d 34 2a 54 29 2a b5 | 28 4d 53 29 2b 36 2e 37 |E-4*T)*.|(MS)+6.7|
|00001490| 35 45 2d 32 2a b5 28 4d | 44 29 2d 28 34 2e 39 37 |5E-2*.(M|D)-(4.97|
|000014a0| 45 2d 32 2d 31 2e 32 45 | 2d 34 2a 54 29 2a b5 28 |E-2-1.2E|-4*T)*.(|
|000014b0| 54 4c 53 2b 4d 53 29 2d | 33 2e 34 32 45 2d 32 2a |TLS+MS)-|3.42E-2*|
|000014c0| b5 28 54 4c 44 2d 4e 4d | 29 2d 32 2e 36 31 45 2d |.(TLD-NM|)-2.61E-|
|000014d0| 32 2a b5 28 54 4c 44 2b | 4d 44 29 2b 32 2e 31 34 |2*.(TLD+|MD)+2.14|
|000014e0| 45 2d 32 2a b5 28 54 4c | 53 2d 4d 53 29 0d 07 d0 |E-2*.(TL|S-MS)...|
|000014f0| 48 20 44 50 53 49 3d 44 | 50 53 49 2d 31 2e 34 39 |H DPSI=D|PSI-1.49|
|00001500| 45 2d 32 2a b5 28 54 4c | 53 2d 54 4c 44 2b 4d 44 |E-2*.(TL|S-TLD+MD|
|00001510| 29 2b 31 2e 32 34 45 2d | 32 2a b5 28 54 4c 53 2d |)+1.24E-|2*.(TLS-|
|00001520| 4e 4d 29 2b 31 2e 31 34 | 45 2d 32 2a b5 28 54 4c |NM)+1.14|E-2*.(TL|
|00001530| 44 2d 4d 44 29 0d 07 da | b0 20 44 45 50 53 3d 28 |D-MD)...|. DEPS=(|
|00001540| 39 2e 32 31 2b 39 2e 31 | 45 2d 34 2a 54 29 2a 9b |9.21+9.1|E-4*T)*.|
|00001550| 28 4e 4d 29 2b 28 35 2e | 35 32 32 45 2d 31 2d 32 |(NM)+(5.|522E-1-2|
|00001560| 2e 39 45 2d 34 2a 54 29 | 2a 9b 28 54 4c 53 29 2d |.9E-4*T)|*.(TLS)-|
|00001570| 39 2e 30 34 45 2d 32 2a | 9b 28 54 4e 4d 29 2b 38 |9.04E-2*|.(TNM)+8|
|00001580| 2e 38 34 45 2d 32 2a 9b | 28 54 4c 44 29 2b 32 2e |.84E-2*.|(TLD)+2.|
|00001590| 31 36 45 2d 32 2a 9b 28 | 54 4c 53 2b 4d 53 29 2b |16E-2*.(|TLS+MS)+|
|000015a0| 31 2e 38 33 45 2d 32 2a | 9b 28 54 4c 44 2d 4e 4d |1.83E-2*|.(TLD-NM|
|000015b0| 29 2b 31 2e 31 33 45 2d | 32 2a 9b 28 54 4c 44 2b |)+1.13E-|2*.(TLD+|
|000015c0| 4d 44 29 2d 39 2e 33 45 | 2d 33 2a 9b 28 54 4c 53 |MD)-9.3E|-3*.(TLS|
|000015d0| 2d 4d 53 29 2d 36 2e 36 | 45 2d 33 2a 9b 28 54 4c |-MS)-6.6|E-3*.(TL|
|000015e0| 53 2d 4e 4d 29 0d 07 e4 | 22 20 44 50 53 49 3d 44 |S-NM)...|" DPSI=D|
|000015f0| 50 53 49 2f 33 36 30 30 | 3a 44 45 50 53 3d 44 45 |PSI/3600|:DEPS=DE|
|00001600| 50 53 2f 33 36 30 30 0d | 07 ee 06 20 e1 0d 07 f8 |PS/3600.|... ....|
|00001610| 06 20 3a 0d 08 02 0f 20 | dd f2 50 61 72 61 6c 6c |. :.... |..Parall|
|00001620| 61 78 0d 08 0c 17 20 e7 | 20 46 4c 41 47 28 31 31 |ax.... .| FLAG(11|
|00001630| 29 3d 31 20 8c 8d 44 48 | 48 0d 08 16 1c 20 43 50 |)=1 ..DH|H.... CP|
|00001640| 48 49 3d 9b 28 50 48 49 | 29 3a 53 50 48 49 3d b5 |HI=.(PHI|):SPHI=.|
|00001650| 28 50 48 49 29 0d 08 20 | 1e 20 55 3d 99 28 39 2e |(PHI).. |. U=.(9.|
|00001660| 39 36 36 34 37 45 2d 31 | 2a 53 50 48 49 2f 43 50 |96647E-1|*SPHI/CP|
|00001670| 48 49 29 0d 08 2a 1f 20 | 43 55 3d 9b 28 55 29 3a |HI)..*. |CU=.(U):|
|00001680| 53 55 3d b5 28 55 29 3a | 46 4c 41 47 28 31 31 29 |SU=.(U):|FLAG(11)|
|00001690| 3d 31 0d 08 34 22 20 52 | 53 50 3d 28 39 2e 39 36 |=1..4" R|SP=(9.96|
|000016a0| 36 34 37 45 2d 31 2a 53 | 55 29 2b 28 48 54 2a 53 |647E-1*S|U)+(HT*S|
|000016b0| 50 48 49 29 0d 08 3e 15 | 20 52 43 50 3d 43 55 2b |PHI)..>.| RCP=CU+|
|000016c0| 28 48 54 2a 43 50 48 49 | 29 0d 08 48 10 20 52 50 |(HT*CPHI|)..H. RP|
|000016d0| 3d 31 2f b5 28 45 48 50 | 29 0d 08 52 17 20 e7 20 |=1/.(EHP|)..R. . |
|000016e0| 53 57 36 3d 2d 31 20 f2 | 50 61 72 61 5f 31 3a e1 |SW6=-1 .|Para_1:.|
|000016f0| 0d 08 5c 0c 20 f2 50 61 | 72 61 5f 32 0d 08 66 06 |..\. .Pa|ra_2..f.|
|00001700| 20 e1 0d 08 70 06 20 3a | 0d 08 7a 0d 20 dd f2 50 | ...p. :|..z. ..P|
|00001710| 61 72 61 5f 31 0d 08 84 | 1a 20 58 31 3d 58 3a 59 |ara_1...|. X1=X:Y|
|00001720| 31 3d 59 3a 44 50 31 3d | 30 3a 44 51 31 3d 30 0d |1=Y:DP1=|0:DQ1=0.|
|00001730| 08 8e 1c 20 f2 50 61 72 | 61 5f 32 3a 44 50 32 3d |... .Par|a_2:DP2=|
|00001740| 50 2d 58 3a 44 51 32 3d | 51 2d 59 0d 08 98 32 20 |P-X:DQ2=|Q-Y...2 |
|00001750| e7 20 28 94 28 44 50 32 | 2d 44 50 31 29 3c 31 45 |. (.(DP2|-DP1)<1E|
|00001760| 2d 36 29 20 80 20 28 94 | 28 44 51 32 2d 44 51 31 |-6) . (.|(DQ2-DQ1|
|00001770| 29 3c 31 45 2d 36 29 20 | 8c 8d 74 76 48 0d 08 a2 |)<1E-6) |..tvH...|
|00001780| 16 20 58 3d 58 31 2d 44 | 50 32 3a 59 3d 59 31 2d |. X=X1-D|P2:Y=Y1-|
|00001790| 44 51 32 0d 08 ac 1b 20 | 44 50 31 3d 44 50 32 3a |DQ2.... |DP1=DP2:|
|000017a0| 44 51 31 3d 44 51 32 3a | e5 20 8d 74 4e 48 0d 08 |DQ1=DQ2:|. .tNH..|
|000017b0| b6 16 20 50 3d 58 31 2d | 44 50 32 3a 51 3d 59 31 |.. P=X1-|DP2:Q=Y1|
|000017c0| 2d 44 51 32 0d 08 c0 0e | 20 58 3d 58 31 3a 59 3d |-DQ2....| X=X1:Y=|
|000017d0| 59 31 0d 08 ca 06 20 e1 | 0d 08 d4 06 20 3a 0d 08 |Y1.... .|.... :..|
|000017e0| de 0d 20 dd f2 50 61 72 | 61 5f 32 0d 08 e8 1c 20 |.. ..Par|a_2.... |
|000017f0| 43 58 3d 9b 28 58 29 3a | 53 59 3d b5 28 59 29 3a |CX=.(X):|SY=.(Y):|
|00001800| 43 59 3d 9b 28 59 29 0d | 08 f2 26 20 54 44 58 3d |CY=.(Y).|..& TDX=|
|00001810| 28 52 43 50 2a b5 28 58 | 29 29 2f 28 28 52 50 2a |(RCP*.(X|))/((RP*|
|00001820| 43 59 29 2d 28 52 43 50 | 2a 43 58 29 29 0d 08 fc |CY)-(RCP|*CX))...|
|00001830| 1d 20 44 58 3d 99 28 54 | 44 58 29 3a 50 3d 58 2b |. DX=.(T|DX):P=X+|
|00001840| 44 58 3a 43 50 3d 9b 28 | 50 29 0d 09 06 16 20 e7 |DX:CP=.(|P).... .|
|00001850| 20 50 3e 54 50 49 20 8c | 20 50 3d 50 2d 54 50 49 | P>TPI .| P=P-TPI|
|00001860| 0d 09 10 14 20 e7 20 50 | 3c 30 20 8c 20 50 3d 50 |.... . P|<0 . P=P|
|00001870| 2b 54 50 49 0d 09 1a 27 | 20 51 3d 99 28 43 50 2a |+TPI...'| Q=.(CP*|
|00001880| 28 52 50 2a 53 59 2d 52 | 53 50 29 2f 28 52 50 2a |(RP*SY-R|SP)/(RP*|
|00001890| 43 59 2a 43 58 2d 52 43 | 50 29 29 0d 09 24 06 20 |CY*CX-RC|P))..$. |
|000018a0| e1 0d 09 2e 06 20 3a 0d | 09 38 0e 20 dd f2 41 6e |..... :.|.8. ..An|
|000018b0| 6f 6d 61 6c 79 0d 09 42 | 1c 20 4d 3d 4d 41 2d 54 |omaly..B|. M=MA-T|
|000018c0| 50 49 2a a8 28 4d 41 2f | 54 50 49 29 3a 45 41 3d |PI*.(MA/|TPI):EA=|
|000018d0| 4d 0d 09 4c 17 20 44 4c | 41 3d 45 41 2d 28 53 2a |M..L. DL|A=EA-(S*|
|000018e0| b5 28 45 41 29 29 2d 4d | 0d 09 56 18 20 e7 20 94 |.(EA))-M|..V. . .|
|000018f0| 28 44 4c 41 29 3c 31 45 | 2d 36 20 8c 8d 44 74 49 |(DLA)<1E|-6 ..DtI|
|00001900| 0d 09 60 1a 20 44 4c 41 | 3d 44 4c 41 2f 28 31 2d |..`. DLA|=DLA/(1-|
|00001910| 28 53 2a 9b 28 45 41 29 | 29 29 0d 09 6a 15 20 45 |(S*.(EA)|))..j. E|
|00001920| 41 3d 45 41 2d 44 4c 41 | 3a e5 20 8d 44 4c 49 0d |A=EA-DLA|:. .DLI.|
|00001930| 09 74 20 20 54 4e 55 32 | 3d b6 28 28 31 2b 53 29 |.t  TNU2|=.((1+S)|
|00001940| 2f 28 31 2d 53 29 29 2a | b7 28 45 41 2f 32 29 0d |/(1-S))*|.(EA/2).|
|00001950| 09 7e 11 20 4e 55 3d 32 | 2a 99 28 54 4e 55 32 29 |.~. NU=2|*.(TNU2)|
|00001960| 0d 09 88 06 20 e1 0d 09 | 92 06 20 3a 0d 09 9c 0a |.... ...|.. :....|
|00001970| 20 dd f2 53 75 6e 0d 09 | a6 1f 20 f2 4a 75 6c 64 | ..Sun..|.. .Juld|
|00001980| 61 79 3a 54 3d 44 4a 44 | 2f 33 36 35 32 35 3a 54 |ay:T=DJD|/36525:T|
|00001990| 32 3d 54 2a 54 0d 09 b0 | 25 20 41 3d 31 2e 30 30 |2=T*T...|% A=1.00|
|000019a0| 30 30 32 31 33 35 39 45 | 32 2a 54 3a 42 3d 33 36 |0021359E|2*T:B=36|
|000019b0| 30 2a 28 41 2d a8 28 41 | 29 29 0d 09 ba 21 20 4c |0*(A-.(A|))...! L|
|000019c0| 53 3d 32 2e 37 39 36 39 | 36 36 38 45 32 2b 33 2e |S=2.7969|668E2+3.|
|000019d0| 30 32 35 45 2d 34 2a 54 | 32 2b 42 0d 09 c4 25 20 |025E-4*T|2+B...% |
|000019e0| 41 3d 39 2e 39 39 39 37 | 33 36 30 34 32 45 31 2a |A=9.9997|36042E1*|
|000019f0| 54 3a 42 3d 33 36 30 2a | 28 41 2d a8 28 41 29 29 |T:B=360*|(A-.(A))|
|00001a00| 0d 09 ce 2a 20 4d 53 3d | 33 2e 35 38 34 37 35 38 |...* MS=|3.584758|
|00001a10| 33 45 32 2d 28 31 2e 35 | 45 2d 34 2b 33 2e 33 45 |3E2-(1.5|E-4+3.3E|
|00001a20| 2d 36 2a 54 29 2a 54 32 | 2b 42 0d 09 d8 27 20 53 |-6*T)*T2|+B...' S|
|00001a30| 3d 31 2e 36 37 35 31 30 | 34 45 2d 32 2d 34 2e 31 |=1.67510|4E-2-4.1|
|00001a40| 38 45 2d 35 2a 54 2d 31 | 2e 32 36 45 2d 37 2a 54 |8E-5*T-1|.26E-7*T|
|00001a50| 32 0d 09 e2 19 20 4d 41 | 3d a4 52 41 44 28 4d 53 |2.... MA|=.RAD(MS|
|00001a60| 29 3a f2 41 6e 6f 6d 61 | 6c 79 0d 09 ec 25 20 41 |):.Anoma|ly...% A|
|00001a70| 3d 36 2e 32 35 35 32 30 | 39 34 37 32 45 31 2a 54 |=6.25520|9472E1*T|
|00001a80| 3a 42 3d 33 36 30 2a 28 | 41 2d a8 28 41 29 29 0d |:B=360*(|A-.(A)).|
|00001a90| 09 f6 16 20 41 31 3d a4 | 52 41 44 28 31 35 33 2e |... A1=.|RAD(153.|
|00001aa0| 32 33 2b 42 29 0d 0a 00 | 25 20 41 3d 31 2e 32 35 |23+B)...|% A=1.25|
|00001ab0| 31 30 34 31 38 39 34 45 | 32 2a 54 3a 42 3d 33 36 |1041894E|2*T:B=36|
|00001ac0| 30 2a 28 41 2d a8 28 41 | 29 29 0d 0a 0a 16 20 42 |0*(A-.(A|)).... B|
|00001ad0| 31 3d a4 52 41 44 28 32 | 31 36 2e 35 37 2b 42 29 |1=.RAD(2|16.57+B)|
|00001ae0| 0d 0a 14 25 20 41 3d 39 | 2e 31 35 36 37 36 36 30 |...% A=9|.1567660|
|00001af0| 32 38 45 31 2a 54 3a 42 | 3d 33 36 30 2a 28 41 2d |28E1*T:B|=360*(A-|
|00001b00| a8 28 41 29 29 0d 0a 1e | 16 20 43 31 3d a4 52 41 |.(A))...|. C1=.RA|
|00001b10| 44 28 33 31 32 2e 36 39 | 2b 42 29 0d 0a 28 25 20 |D(312.69|+B)..(% |
|00001b20| 41 3d 31 2e 32 33 36 38 | 35 33 30 39 35 45 33 2a |A=1.2368|53095E3*|
|00001b30| 54 3a 42 3d 33 36 30 2a | 28 41 2d a8 28 41 29 29 |T:B=360*|(A-.(A))|
|00001b40| 0d 0a 32 21 20 44 31 3d | a4 52 41 44 28 33 35 30 |..2! D1=|.RAD(350|
|00001b50| 2e 37 34 2d 31 2e 34 34 | 45 2d 33 2a 54 32 2b 42 |.74-1.44|E-3*T2+B|
|00001b60| 29 0d 0a 3c 1b 20 45 31 | 3d a4 52 41 44 28 32 33 |)..<. E1|=.RAD(23|
|00001b70| 31 2e 31 39 2b 32 30 2e | 32 2a 54 29 0d 0a 46 25 |1.19+20.|2*T)..F%|
|00001b80| 20 41 3d 31 2e 38 33 31 | 33 35 33 32 30 38 45 32 | A=1.831|353208E2|
|00001b90| 2a 54 3a 42 3d 33 36 30 | 2a 28 41 2d a8 28 41 29 |*T:B=360|*(A-.(A)|
|00001ba0| 29 0d 0a 50 15 20 48 31 | 3d a4 52 41 44 28 33 35 |)..P. H1|=.RAD(35|
|00001bb0| 33 2e 34 2b 42 29 0d 0a | 5a 4a 20 44 4c 3d 31 2e |3.4+B)..|ZJ DL=1.|
|00001bc0| 33 34 45 2d 33 2a 9b 28 | 41 31 29 2b 31 2e 35 34 |34E-3*.(|A1)+1.54|
|00001bd0| 45 2d 33 2a 9b 28 42 31 | 29 2b 32 45 2d 33 2a 9b |E-3*.(B1|)+2E-3*.|
|00001be0| 28 43 31 29 2b 31 2e 37 | 39 45 2d 33 2a b5 28 44 |(C1)+1.7|9E-3*.(D|
|00001bf0| 31 29 2b 31 2e 37 38 45 | 2d 33 2a b5 28 45 31 29 |1)+1.78E|-3*.(E1)|
|00001c00| 0d 0a 64 50 20 44 52 3d | 35 2e 34 33 45 2d 36 2a |..dP DR=|5.43E-6*|
|00001c10| b5 28 41 31 29 2b 31 2e | 35 37 35 45 2d 35 2a b5 |.(A1)+1.|575E-5*.|
|00001c20| 28 42 31 29 2b 31 2e 36 | 32 37 45 2d 35 2a b5 28 |(B1)+1.6|27E-5*.(|
|00001c30| 43 31 29 2b 33 2e 30 37 | 36 45 2d 35 2a 9b 28 44 |C1)+3.07|6E-5*.(D|
|00001c40| 31 29 2b 39 2e 32 37 45 | 2d 36 2a b5 28 48 31 29 |1)+9.27E|-6*.(H1)|
|00001c50| 0d 0a 6e 1a 20 4c 53 4e | 3d 4e 55 2b a4 52 41 44 |..n. LSN|=NU+.RAD|
|00001c60| 28 4c 53 2d 4d 53 2b 44 | 4c 29 0d 0a 78 21 20 52 |(LS-MS+D|L)..x! R|
|00001c70| 53 4e 3d 31 2e 30 30 30 | 30 30 30 32 2a 28 31 2d |SN=1.000|0002*(1-|
|00001c80| 53 2a 9b 28 45 41 29 29 | 2b 44 52 0d 0a 82 20 20 |S*.(EA))|+DR...  |
|00001c90| e7 20 4c 53 4e 3c 30 20 | 8c 20 4c 53 4e 3d 4c 53 |. LSN<0 |. LSN=LS|
|00001ca0| 4e 2b 54 50 49 3a e5 8d | 74 42 4a 0d 0a 8c 23 20 |N+TPI:..|tBJ...# |
|00001cb0| e7 20 4c 53 4e 3e 54 50 | 49 20 8c 20 4c 53 4e 3d |. LSN>TP|I . LSN=|
|00001cc0| 4c 53 4e 2d 54 50 49 3a | e5 20 8d 74 4c 4a 0d 0a |LSN-TPI:|. .tLJ..|
|00001cd0| 96 06 20 e1 0d 0a a0 06 | 20 3a 0d 0a aa 0b 20 dd |.. .....| :.... .|
|00001ce0| f2 4d 6f 6f 6e 0d 0a b4 | 1f 20 f2 4a 75 6c 64 61 |.Moon...|. .Julda|
|00001cf0| 79 3a 54 3d 44 4a 44 2f | 33 36 35 32 35 3a 54 32 |y:T=DJD/|36525:T2|
|00001d00| 3d 54 2a 54 0d 0a be 26 | 20 4d 31 3d 32 2e 37 33 |=T*T...&| M1=2.73|
|00001d10| 32 31 35 38 32 31 33 45 | 31 3a 4d 32 3d 33 2e 36 |2158213E|1:M2=3.6|
|00001d20| 35 32 35 39 36 34 30 37 | 45 32 0d 0a c8 26 20 4d |52596407|E2...& M|
|00001d30| 33 3d 32 2e 37 35 35 34 | 35 35 30 39 34 45 31 3a |3=2.7554|55094E1:|
|00001d40| 4d 34 3d 32 2e 39 35 33 | 30 35 38 38 36 38 45 31 |M4=2.953|058868E1|
|00001d50| 0d 0a d2 26 20 4d 35 3d | 32 2e 37 32 31 32 32 32 |...& M5=|2.721222|
|00001d60| 30 33 39 45 31 3a 4d 36 | 3d 36 2e 37 39 38 33 36 |039E1:M6|=6.79836|
|00001d70| 33 33 30 37 45 33 0d 0a | dc 22 20 4d 31 3d 44 4a |3307E3..|." M1=DJ|
|00001d80| 44 2f 4d 31 3a 4d 32 3d | 44 4a 44 2f 4d 32 3a 4d |D/M1:M2=|DJD/M2:M|
|00001d90| 33 3d 44 4a 44 2f 4d 33 | 0d 0a e6 22 20 4d 34 3d |3=DJD/M3|..." M4=|
|00001da0| 44 4a 44 2f 4d 34 3a 4d | 35 3d 44 4a 44 2f 4d 35 |DJD/M4:M|5=DJD/M5|
|00001db0| 3a 4d 36 3d 44 4a 44 2f | 4d 36 0d 0a f0 28 20 4d |:M6=DJD/|M6...( M|
|00001dc0| 31 3d 33 36 30 2a 28 4d | 31 2d a8 28 4d 31 29 29 |1=360*(M|1-.(M1))|
|00001dd0| 3a 4d 32 3d 33 36 30 2a | 28 4d 32 2d a8 28 4d 32 |:M2=360*|(M2-.(M2|
|00001de0| 29 29 0d 0a fa 28 20 4d | 33 3d 33 36 30 2a 28 4d |))...( M|3=360*(M|
|00001df0| 33 2d a8 28 4d 33 29 29 | 3a 4d 34 3d 33 36 30 2a |3-.(M3))|:M4=360*|
|00001e00| 28 4d 34 2d a8 28 4d 34 | 29 29 0d 0b 04 28 20 4d |(M4-.(M4|))...( M|
|00001e10| 35 3d 33 36 30 2a 28 4d | 35 2d a8 28 4d 35 29 29 |5=360*(M|5-.(M5))|
|00001e20| 3a 4d 36 3d 33 36 30 2a | 28 4d 36 2d a8 28 4d 36 |:M6=360*|(M6-.(M6|
|00001e30| 29 29 0d 0b 0e 2e 20 4c | 44 3d 32 2e 37 30 34 33 |)).... L|D=2.7043|
|00001e40| 34 31 36 34 45 32 2b 4d | 31 2d 28 31 2e 31 33 33 |4164E2+M|1-(1.133|
|00001e50| 45 2d 33 2d 31 2e 39 45 | 2d 36 2a 54 29 2a 54 32 |E-3-1.9E|-6*T)*T2|
|00001e60| 0d 0b 18 2c 20 4d 53 3d | 33 2e 35 38 34 37 35 38 |..., MS=|3.584758|
|00001e70| 33 33 45 32 2b 4d 32 2d | 28 31 2e 35 45 2d 34 2b |33E2+M2-|(1.5E-4+|
|00001e80| 33 2e 33 45 2d 36 2a 54 | 29 2a 54 32 0d 0b 22 2f |3.3E-6*T|)*T2.."/|
|00001e90| 20 4d 44 3d 32 2e 39 36 | 31 30 34 36 30 38 45 32 | MD=2.96|104608E2|
|00001ea0| 2b 4d 33 2b 28 39 2e 31 | 39 32 45 2d 33 2b 31 2e |+M3+(9.1|92E-3+1.|
|00001eb0| 34 34 45 2d 35 2a 54 29 | 2a 54 32 0d 0b 2c 2e 20 |44E-5*T)|*T2..,. |
|00001ec0| 44 45 3d 33 2e 35 30 37 | 33 37 34 38 36 45 32 2b |DE=3.507|37486E2+|
|00001ed0| 4d 34 2d 28 31 2e 34 33 | 36 45 2d 33 2d 31 2e 39 |M4-(1.43|6E-3-1.9|
|00001ee0| 45 2d 36 2a 54 29 2a 54 | 32 0d 0b 36 28 20 46 3d |E-6*T)*T|2..6( F=|
|00001ef0| 31 31 2e 32 35 30 38 38 | 39 2b 4d 35 2d 28 33 2e |11.25088|9+M5-(3.|
|00001f00| 32 31 31 45 2d 33 2b 33 | 45 2d 37 2a 54 29 2a 54 |211E-3+3|E-7*T)*T|
|00001f10| 32 0d 0b 40 2d 20 4e 3d | 32 2e 35 39 31 38 33 32 |2..@- N=|2.591832|
|00001f20| 37 35 45 32 2d 4d 36 2b | 28 32 2e 30 37 38 45 2d |75E2-M6+|(2.078E-|
|00001f30| 33 2b 32 2e 32 45 2d 35 | 2a 54 29 2a 54 32 0d 0b |3+2.2E-5|*T)*T2..|
|00001f40| 4a 20 20 41 3d a4 52 41 | 44 28 35 31 2e 32 2b 32 |J  A=.RA|D(51.2+2|
|00001f50| 30 2e 32 2a 54 29 3a 53 | 41 3d b5 28 41 29 0d 0b |0.2*T):S|A=.(A)..|
|00001f60| 54 12 20 53 4e 3d b5 28 | a4 52 41 44 28 4e 29 29 |T. SN=.(|.RAD(N))|
|00001f70| 0d 0b 5e 24 20 42 3d 33 | 34 36 2e 35 36 2b 28 31 |..^$ B=3|46.56+(1|
|00001f80| 33 32 2e 38 37 2d 39 2e | 31 37 31 33 45 2d 33 2a |32.87-9.|1713E-3*|
|00001f90| 54 29 2a 54 0d 0b 68 1b | 20 53 42 3d 33 2e 39 36 |T)*T..h.| SB=3.96|
|00001fa0| 34 45 2d 33 2a b5 28 a4 | 52 41 44 28 42 29 29 0d |4E-3*.(.|RAD(B)).|
|00001fb0| 0b 72 06 20 3a 0d 0b 7c | 23 20 43 3d a4 52 41 44 |.r. :..||# C=.RAD|
|00001fc0| 28 4e 2b 32 37 35 2e 30 | 35 2d 32 2e 33 2a 54 29 |(N+275.0|5-2.3*T)|
|00001fd0| 3a 53 43 3d b5 28 43 29 | 0d 0b 86 24 20 4c 44 3d |:SC=.(C)|...$ LD=|
|00001fe0| 4c 44 2b 32 2e 33 33 45 | 2d 34 2a 53 41 2b 53 42 |LD+2.33E|-4*SA+SB|
|00001ff0| 2b 31 2e 39 36 34 45 2d | 33 2a 53 4e 0d 0b 90 15 |+1.964E-|3*SN....|
|00002000| 20 4d 53 3d 4d 53 2d 31 | 2e 37 37 45 2d 33 2a 53 | MS=MS-1|.77E-3*S|
|00002010| 41 0d 0b 9a 24 20 4d 44 | 3d 4d 44 2b 38 2e 31 37 |A...$ MD|=MD+8.17|
|00002020| 45 2d 34 2a 53 41 2b 53 | 42 2b 32 2e 35 34 31 45 |E-4*SA+S|B+2.541E|
|00002030| 2d 33 2a 53 4e 0d 0b a4 | 24 20 46 3d 46 2b 53 42 |-3*SN...|$ F=F+SB|
|00002040| 2d 32 2e 34 36 39 31 45 | 2d 32 2a 53 4e 2d 34 2e |-2.4691E|-2*SN-4.|
|00002050| 33 32 38 45 2d 33 2a 53 | 43 0d 0b ae 25 20 44 45 |328E-3*S|C...% DE|
|00002060| 3d 44 45 2b 32 2e 30 31 | 31 45 2d 33 2a 53 41 2b |=DE+2.01|1E-3*SA+|
|00002070| 53 42 2b 31 2e 39 36 34 | 45 2d 33 2a 53 4e 0d 0b |SB+1.964|E-3*SN..|
|00002080| b8 26 20 45 3d 31 2d 28 | 32 2e 34 39 35 45 2d 33 |.& E=1-(|2.495E-3|
|00002090| 2b 37 2e 35 32 45 2d 36 | 2a 54 29 2a 54 3a 45 32 |+7.52E-6|*T)*T:E2|
|000020a0| 3d 45 2a 45 0d 0b c2 26 | 20 4c 44 3d a4 52 41 44 |=E*E...&| LD=.RAD|
|000020b0| 28 4c 44 29 3a 4d 53 3d | a4 52 41 44 28 4d 53 29 |(LD):MS=|.RAD(MS)|
|000020c0| 3a 4e 3d a4 52 41 44 28 | 4e 29 0d 0b cc 26 20 44 |:N=.RAD(|N)...& D|
|000020d0| 45 3d a4 52 41 44 28 44 | 45 29 3a 46 3d a4 52 41 |E=.RAD(D|E):F=.RA|
|000020e0| 44 28 46 29 3a 4d 44 3d | a4 52 41 44 28 4d 44 29 |D(F):MD=|.RAD(MD)|
|000020f0| 0d 0b d6 cf 20 4c 3d 36 | 2e 32 38 38 37 35 2a b5 |.... L=6|.28875*.|
|00002100| 28 4d 44 29 2b 31 2e 32 | 37 34 30 31 38 2a b5 28 |(MD)+1.2|74018*.(|
|00002110| 32 2a 44 45 2d 4d 44 29 | 2b 36 2e 35 38 33 30 39 |2*DE-MD)|+6.58309|
|00002120| 45 2d 31 2a b5 28 32 2a | 44 45 29 2b 32 2e 31 33 |E-1*.(2*|DE)+2.13|
|00002130| 36 31 36 45 2d 31 2a b5 | 28 32 2a 4d 44 29 2d 45 |616E-1*.|(2*MD)-E|
|00002140| 2a 31 2e 38 35 35 39 36 | 45 2d 31 2a b5 28 4d 53 |*1.85596|E-1*.(MS|
|00002150| 29 2d 31 2e 31 34 33 33 | 36 45 2d 31 2a b5 28 32 |)-1.1433|6E-1*.(2|
|00002160| 2a 46 29 2b 35 2e 38 37 | 39 33 45 2d 32 2a b5 28 |*F)+5.87|93E-2*.(|
|00002170| 32 2a 28 44 45 2d 4d 44 | 29 29 2b 35 2e 37 32 31 |2*(DE-MD|))+5.721|
|00002180| 32 45 2d 32 2a 45 2a b5 | 28 32 2a 44 45 2d 4d 53 |2E-2*E*.|(2*DE-MS|
|00002190| 2d 4d 44 29 2b 35 2e 33 | 33 32 45 2d 32 2a b5 28 |-MD)+5.3|32E-2*.(|
|000021a0| 32 2a 44 45 2b 4d 44 29 | 2b 34 2e 35 38 37 34 45 |2*DE+MD)|+4.5874E|
|000021b0| 2d 32 2a 45 2a b5 28 32 | 2a 44 45 2d 4d 53 29 0d |-2*E*.(2|*DE-MS).|
|000021c0| 0b e0 d4 20 4c 3d 4c 2b | 34 2e 31 30 32 34 45 2d |... L=L+|4.1024E-|
|000021d0| 32 2a 45 2a b5 28 4d 44 | 2d 4d 53 29 2d 33 2e 34 |2*E*.(MD|-MS)-3.4|
|000021e0| 37 31 38 45 2d 32 2a b5 | 28 44 45 29 2d 45 2a 33 |718E-2*.|(DE)-E*3|
|000021f0| 2e 30 34 36 35 45 2d 32 | 2a b5 28 4d 53 2b 4d 44 |.0465E-2|*.(MS+MD|
|00002200| 29 2b 31 2e 35 33 32 36 | 45 2d 32 2a b5 28 32 2a |)+1.5326|E-2*.(2*|
|00002210| 28 44 45 2d 46 29 29 2d | 31 2e 32 35 32 38 45 2d |(DE-F))-|1.2528E-|
|00002220| 32 2a b5 28 32 2a 46 2b | 4d 44 29 2d 31 2e 30 39 |2*.(2*F+|MD)-1.09|
|00002230| 38 45 2d 32 2a b5 28 32 | 2a 46 2d 4d 44 29 2b 31 |8E-2*.(2|*F-MD)+1|
|00002240| 2e 30 36 37 34 45 2d 32 | 2a b5 28 34 2a 44 45 2d |.0674E-2|*.(4*DE-|
|00002250| 4d 44 29 2b 31 2e 30 30 | 33 34 45 2d 32 2a b5 28 |MD)+1.00|34E-2*.(|
|00002260| 33 2a 4d 44 29 2b 38 2e | 35 34 38 45 2d 33 2a b5 |3*MD)+8.|548E-3*.|
|00002270| 28 34 2a 44 45 2d 32 2a | 4d 44 29 2d 45 2a 37 2e |(4*DE-2*|MD)-E*7.|
|00002280| 39 31 45 2d 33 2a b5 28 | 4d 53 2d 4d 44 2b 32 2a |91E-3*.(|MS-MD+2*|
|00002290| 44 45 29 0d 0b ea c4 20 | 4c 3d 4c 2d 45 2a 36 2e |DE).... |L=L-E*6.|
|000022a0| 37 38 33 45 2d 33 2a b5 | 28 32 2a 44 45 2b 4d 53 |783E-3*.|(2*DE+MS|
|000022b0| 29 2b 35 2e 31 36 32 45 | 2d 33 2a b5 28 4d 44 2d |)+5.162E|-3*.(MD-|
|000022c0| 44 45 29 2b 45 2a 35 45 | 2d 33 2a b5 28 4d 53 2b |DE)+E*5E|-3*.(MS+|
|000022d0| 44 45 29 2b 33 2e 38 36 | 32 45 2d 33 2a b5 28 34 |DE)+3.86|2E-3*.(4|
|000022e0| 2a 44 45 29 2b 45 2a 34 | 2e 30 34 39 45 2d 33 2a |*DE)+E*4|.049E-3*|
|000022f0| b5 28 4d 44 2d 4d 53 2b | 32 2a 44 45 29 2b 33 2e |.(MD-MS+|2*DE)+3.|
|00002300| 39 39 36 45 2d 33 2a b5 | 28 32 2a 28 4d 44 2b 44 |996E-3*.|(2*(MD+D|
|00002310| 45 29 29 2b 33 2e 36 36 | 35 45 2d 33 2a b5 28 32 |E))+3.66|5E-3*.(2|
|00002320| 2a 44 45 2d 33 2a 4d 44 | 29 2b 45 2a 32 2e 36 39 |*DE-3*MD|)+E*2.69|
|00002330| 35 45 2d 33 2a b5 28 32 | 2a 4d 44 2d 4d 53 29 2b |5E-3*.(2|*MD-MS)+|
|00002340| 32 2e 36 30 32 45 2d 33 | 2a b5 28 4d 44 2d 32 2a |2.602E-3|*.(MD-2*|
|00002350| 28 46 2b 44 45 29 29 0d | 0b f4 d9 20 4c 3d 4c 2b |(F+DE)).|... L=L+|
|00002360| 45 2a 32 2e 33 39 36 45 | 2d 33 2a b5 28 32 2a 28 |E*2.396E|-3*.(2*(|
|00002370| 44 45 2d 4d 44 29 2d 4d | 53 29 2d 32 2e 33 34 39 |DE-MD)-M|S)-2.349|
|00002380| 45 2d 33 2a b5 28 4d 44 | 2b 44 45 29 2b 45 32 2a |E-3*.(MD|+DE)+E2*|
|00002390| 32 2e 32 34 39 45 2d 33 | 2a b5 28 32 2a 28 44 45 |2.249E-3|*.(2*(DE|
|000023a0| 2d 4d 53 29 29 2d 45 2a | 32 2e 31 32 35 45 2d 33 |-MS))-E*|2.125E-3|
|000023b0| 2a b5 28 32 2a 4d 44 2b | 4d 53 29 2d 45 32 2a 32 |*.(2*MD+|MS)-E2*2|
|000023c0| 2e 30 37 39 45 2d 33 2a | b5 28 32 2a 4d 53 29 2b |.079E-3*|.(2*MS)+|
|000023d0| 45 32 2a 32 2e 30 35 39 | 45 2d 33 2a b5 28 32 2a |E2*2.059|E-3*.(2*|
|000023e0| 28 44 45 2d 4d 53 29 2d | 4d 44 29 2d 31 2e 37 37 |(DE-MS)-|MD)-1.77|
|000023f0| 33 45 2d 33 2a b5 28 4d | 44 2b 32 2a 28 44 45 2d |3E-3*.(M|D+2*(DE-|
|00002400| 46 29 29 2d 31 2e 35 39 | 35 45 2d 33 2a b5 28 32 |F))-1.59|5E-3*.(2|
|00002410| 2a 28 46 2b 44 45 29 29 | 2b 45 2a 31 2e 32 32 45 |*(F+DE))|+E*1.22E|
|00002420| 2d 33 2a b5 28 34 2a 44 | 45 2d 4d 53 2d 4d 44 29 |-3*.(4*D|E-MS-MD)|
|00002430| 0d 0b fe d1 20 4c 3d 4c | 2d 31 2e 31 31 45 2d 33 |.... L=L|-1.11E-3|
|00002440| 2a b5 28 32 2a 28 4d 44 | 2b 46 29 29 2b 38 2e 39 |*.(2*(MD|+F))+8.9|
|00002450| 32 45 2d 34 2a b5 28 4d | 44 2d 33 2a 44 45 29 2d |2E-4*.(M|D-3*DE)-|
|00002460| 45 2a 38 2e 31 31 45 2d | 34 2a b5 28 4d 53 2b 4d |E*8.11E-|4*.(MS+M|
|00002470| 44 2b 32 2a 44 45 29 2b | 45 2a 37 2e 36 31 45 2d |D+2*DE)+|E*7.61E-|
|00002480| 34 2a b5 28 34 2a 44 45 | 2d 4d 53 2d 32 2a 4d 44 |4*.(4*DE|-MS-2*MD|
|00002490| 29 2b 45 32 2a 37 2e 30 | 34 45 2d 34 2a b5 28 4d |)+E2*7.0|4E-4*.(M|
|000024a0| 44 2d 32 2a 28 4d 53 2b | 44 45 29 29 2b 45 2a 36 |D-2*(MS+|DE))+E*6|
|000024b0| 2e 39 33 45 2d 34 2a b5 | 28 4d 53 2d 32 2a 28 4d |.93E-4*.|(MS-2*(M|
|000024c0| 44 2d 44 45 29 29 2b 45 | 2a 35 2e 39 38 45 2d 34 |D-DE))+E|*5.98E-4|
|000024d0| 2a b5 28 32 2a 28 44 45 | 2d 46 29 2d 4d 53 29 2b |*.(2*(DE|-F)-MS)+|
|000024e0| 35 2e 35 45 2d 34 2a b5 | 28 4d 44 2b 34 2a 44 45 |5.5E-4*.|(MD+4*DE|
|000024f0| 29 2b 35 2e 33 38 45 2d | 34 2a b5 28 34 2a 4d 44 |)+5.38E-|4*.(4*MD|
|00002500| 29 0d 0c 08 46 20 4c 3d | 4c 2b 45 2a 35 2e 32 31 |)...F L=|L+E*5.21|
|00002510| 45 2d 34 2a b5 28 34 2a | 44 45 2d 4d 53 29 2b 34 |E-4*.(4*|DE-MS)+4|
|00002520| 2e 38 36 45 2d 34 2a b5 | 28 32 2a 4d 44 2d 44 45 |.86E-4*.|(2*MD-DE|
|00002530| 29 2b 45 32 2a 37 2e 31 | 37 45 2d 34 2a b5 28 4d |)+E2*7.1|7E-4*.(M|
|00002540| 44 2d 32 2a 4d 53 29 0d | 0c 12 13 20 4c 41 4d 3d |D-2*MS).|... LAM=|
|00002550| 4c 44 2b a4 52 41 44 28 | 4c 29 0d 0c 1c 21 20 e7 |LD+.RAD(|L)...! .|
|00002560| 20 4c 41 4d 3c 30 20 8c | 20 4c 41 4d 3d 4c 41 4d | LAM<0 .| LAM=LAM|
|00002570| 2b 54 50 49 3a e5 20 8d | 54 5c 4c 0d 0c 26 23 20 |+TPI:. .|T\L..&# |
|00002580| e7 20 4c 41 4d 3e 54 50 | 49 20 8c 20 4c 41 4d 3d |. LAM>TP|I . LAM=|
|00002590| 4c 41 4d 2d 54 50 49 3a | e5 20 8d 54 66 4c 0d 0c |LAM-TPI:|. .TfL..|
|000025a0| 30 ce 20 47 3d 35 2e 31 | 32 38 31 38 39 2a b5 28 |0. G=5.1|28189*.(|
|000025b0| 46 29 2b 32 2e 38 30 36 | 30 36 45 2d 31 2a b5 28 |F)+2.806|06E-1*.(|
|000025c0| 4d 44 2b 46 29 2b 32 2e | 37 37 36 39 33 45 2d 31 |MD+F)+2.|77693E-1|
|000025d0| 2a b5 28 4d 44 2d 46 29 | 2b 31 2e 37 33 32 33 38 |*.(MD-F)|+1.73238|
|000025e0| 45 2d 31 2a b5 28 32 2a | 44 45 2d 46 29 2b 35 2e |E-1*.(2*|DE-F)+5.|
|000025f0| 35 34 31 33 45 2d 32 2a | b5 28 32 2a 44 45 2b 46 |5413E-2*|.(2*DE+F|
|00002600| 2d 4d 44 29 2b 34 2e 36 | 32 37 32 45 2d 32 2a b5 |-MD)+4.6|272E-2*.|
|00002610| 28 32 2a 44 45 2d 46 2d | 4d 44 29 2b 33 2e 32 35 |(2*DE-F-|MD)+3.25|
|00002620| 37 33 45 2d 32 2a b5 28 | 32 2a 44 45 2b 46 29 2b |73E-2*.(|2*DE+F)+|
|00002630| 31 2e 37 31 39 38 45 2d | 32 2a b5 28 32 2a 4d 44 |1.7198E-|2*.(2*MD|
|00002640| 2b 46 29 2b 39 2e 32 36 | 37 45 2d 33 2a b5 28 32 |+F)+9.26|7E-3*.(2|
|00002650| 2a 44 45 2b 4d 44 2d 46 | 29 2b 38 2e 38 32 33 45 |*DE+MD-F|)+8.823E|
|00002660| 2d 33 2a b5 28 32 2a 4d | 44 2d 46 29 0d 0c 3a c8 |-3*.(2*M|D-F)..:.|
|00002670| 20 47 3d 47 2b 45 2a 38 | 2e 32 34 37 45 2d 33 2a | G=G+E*8|.247E-3*|
|00002680| b5 28 32 2a 44 45 2d 4d | 53 2d 46 29 2b 34 2e 33 |.(2*DE-M|S-F)+4.3|
|00002690| 32 33 45 2d 33 2a b5 28 | 32 2a 28 44 45 2d 4d 44 |23E-3*.(|2*(DE-MD|
|000026a0| 29 2d 46 29 2b 34 2e 32 | 45 2d 33 2a b5 28 32 2a |)-F)+4.2|E-3*.(2*|
|000026b0| 44 45 2b 46 2b 4d 44 29 | 2b 45 2a 33 2e 33 37 32 |DE+F+MD)|+E*3.372|
|000026c0| 45 2d 33 2a b5 28 46 2d | 4d 53 2d 32 2a 44 45 29 |E-3*.(F-|MS-2*DE)|
|000026d0| 2b 45 2a 32 2e 34 37 32 | 45 2d 33 2a b5 28 32 2a |+E*2.472|E-3*.(2*|
|000026e0| 44 45 2b 46 2d 4d 53 2d | 4d 44 29 2b 45 2a 32 2e |DE+F-MS-|MD)+E*2.|
|000026f0| 32 32 32 45 2d 33 2a b5 | 28 32 2a 44 45 2b 46 2d |222E-3*.|(2*DE+F-|
|00002700| 4d 53 29 2b 45 2a 32 2e | 30 37 32 45 2d 33 2a b5 |MS)+E*2.|072E-3*.|
|00002710| 28 32 2a 44 45 2d 46 2d | 4d 53 2d 4d 44 29 2b 45 |(2*DE-F-|MS-MD)+E|
|00002720| 2a 31 2e 38 37 37 45 2d | 33 2a b5 28 46 2d 4d 53 |*1.877E-|3*.(F-MS|
|00002730| 2b 4d 44 29 0d 0c 44 c7 | 20 47 3d 47 2b 31 2e 38 |+MD)..D.| G=G+1.8|
|00002740| 32 38 45 2d 33 2a b5 28 | 34 2a 44 45 2d 46 2d 4d |28E-3*.(|4*DE-F-M|
|00002750| 44 29 2d 45 2a 31 2e 38 | 30 33 45 2d 33 2a b5 28 |D)-E*1.8|03E-3*.(|
|00002760| 46 2b 4d 53 29 2d 31 2e | 37 35 45 2d 33 2a b5 28 |F+MS)-1.|75E-3*.(|
|00002770| 33 2a 46 29 2b 45 2a 31 | 2e 35 37 45 2d 33 2a b5 |3*F)+E*1|.57E-3*.|
|00002780| 28 4d 44 2d 4d 53 2d 46 | 29 2d 31 2e 34 38 37 45 |(MD-MS-F|)-1.487E|
|00002790| 2d 33 2a b5 28 46 2b 44 | 45 29 2d 45 2a 31 2e 34 |-3*.(F+D|E)-E*1.4|
|000027a0| 38 31 45 2d 33 2a b5 28 | 46 2b 4d 53 2b 4d 44 29 |81E-3*.(|F+MS+MD)|
|000027b0| 2b 45 2a 31 2e 34 31 37 | 45 2d 33 2a b5 28 46 2d |+E*1.417|E-3*.(F-|
|000027c0| 4d 53 2d 4d 44 29 2b 45 | 2a 31 2e 33 35 45 2d 33 |MS-MD)+E|*1.35E-3|
|000027d0| 2a b5 28 46 2d 4d 53 29 | 2b 31 2e 33 33 45 2d 33 |*.(F-MS)|+1.33E-3|
|000027e0| 2a b5 28 46 2d 44 45 29 | 2b 31 2e 31 30 36 45 2d |*.(F-DE)|+1.106E-|
|000027f0| 33 2a b5 28 46 2b 33 2a | 4d 44 29 0d 0c 4e c4 20 |3*.(F+3*|MD)..N. |
|00002800| 47 3d 47 2b 31 2e 30 32 | 45 2d 33 2a b5 28 34 2a |G=G+1.02|E-3*.(4*|
|00002810| 44 45 2d 46 29 2b 38 2e | 33 33 45 2d 34 2a b5 28 |DE-F)+8.|33E-4*.(|
|00002820| 46 2b 34 2a 44 45 2d 4d | 44 29 2b 37 2e 38 31 45 |F+4*DE-M|D)+7.81E|
|00002830| 2d 34 2a b5 28 4d 44 2d | 33 2a 46 29 2b 36 2e 37 |-4*.(MD-|3*F)+6.7|
|00002840| 45 2d 34 2a b5 28 46 2b | 34 2a 44 45 2d 32 2a 4d |E-4*.(F+|4*DE-2*M|
|00002850| 44 29 2b 36 2e 30 36 45 | 2d 34 2a b5 28 32 2a 44 |D)+6.06E|-4*.(2*D|
|00002860| 45 2d 33 2a 46 29 2b 35 | 2e 39 37 45 2d 34 2a b5 |E-3*F)+5|.97E-4*.|
|00002870| 28 32 2a 28 44 45 2b 4d | 44 29 2d 46 29 2b 45 2a |(2*(DE+M|D)-F)+E*|
|00002880| 34 2e 39 32 45 2d 34 2a | b5 28 32 2a 44 45 2b 4d |4.92E-4*|.(2*DE+M|
|00002890| 44 2d 4d 53 2d 46 29 2b | 34 2e 35 45 2d 34 2a b5 |D-MS-F)+|4.5E-4*.|
|000028a0| 28 32 2a 28 4d 44 2d 44 | 45 29 2d 46 29 2b 34 2e |(2*(MD-D|E)-F)+4.|
|000028b0| 33 39 45 2d 34 2a b5 28 | 33 2a 4d 44 2d 46 29 0d |39E-4*.(|3*MD-F).|
|000028c0| 0c 58 bf 20 47 3d 47 2b | 34 2e 32 33 45 2d 34 2a |.X. G=G+|4.23E-4*|
|000028d0| b5 28 46 2b 32 2a 28 44 | 45 2b 4d 44 29 29 2b 34 |.(F+2*(D|E+MD))+4|
|000028e0| 2e 32 32 45 2d 34 2a b5 | 28 32 2a 44 45 2d 46 2d |.22E-4*.|(2*DE-F-|
|000028f0| 33 2a 4d 44 29 2d 45 2a | 33 2e 36 37 45 2d 34 2a |3*MD)-E*|3.67E-4*|
|00002900| b5 28 4d 53 2b 46 2b 32 | 2a 44 45 2d 4d 44 29 2d |.(MS+F+2|*DE-MD)-|
|00002910| 45 2a 33 2e 35 33 45 2d | 34 2a b5 28 4d 53 2b 46 |E*3.53E-|4*.(MS+F|
|00002920| 2b 32 2a 44 45 29 2b 33 | 2e 33 31 45 2d 34 2a b5 |+2*DE)+3|.31E-4*.|
|00002930| 28 46 2b 34 2a 44 45 29 | 2b 45 2a 33 2e 31 37 45 |(F+4*DE)|+E*3.17E|
|00002940| 2d 34 2a b5 28 32 2a 44 | 45 2b 46 2d 4d 53 2b 4d |-4*.(2*D|E+F-MS+M|
|00002950| 44 29 2b 45 32 2a 33 2e | 30 36 45 2d 34 2a b5 28 |D)+E2*3.|06E-4*.(|
|00002960| 32 2a 28 44 45 2d 4d 53 | 29 2d 46 29 2d 32 2e 38 |2*(DE-MS|)-F)-2.8|
|00002970| 33 45 2d 34 2a b5 28 4d | 44 2b 33 2a 46 29 0d 0c |3E-4*.(M|D+3*F)..|
|00002980| 62 06 20 3a 0d 0c 6c 25 | 20 57 31 3d 34 2e 36 36 |b. :..l%| W1=4.66|
|00002990| 34 45 2d 34 2a 9b 28 4e | 29 3a 57 32 3d 37 2e 35 |4E-4*.(N|):W2=7.5|
|000029a0| 34 45 2d 35 2a 9b 28 43 | 29 0d 0c 76 1a 20 42 45 |4E-5*.(C|)..v. BE|
|000029b0| 54 3d a4 52 41 44 28 47 | 29 2a 28 31 2d 57 31 2d |T=.RAD(G|)*(1-W1-|
|000029c0| 57 32 29 0d 0c 80 ca 20 | 48 50 3d 39 2e 35 30 37 |W2).... |HP=9.507|
|000029d0| 32 34 45 2d 31 2b 35 2e | 31 38 31 45 2d 32 2a 9b |24E-1+5.|181E-2*.|
|000029e0| 28 4d 44 29 2b 39 2e 35 | 33 31 45 2d 33 2a 9b 28 |(MD)+9.5|31E-3*.(|
|000029f0| 32 2a 44 45 2d 4d 44 29 | 2b 37 2e 38 34 33 45 2d |2*DE-MD)|+7.843E-|
|00002a00| 33 2a 9b 28 32 2a 44 45 | 29 2b 32 2e 38 32 34 45 |3*.(2*DE|)+2.824E|
|00002a10| 2d 33 2a 9b 28 32 2a 4d | 44 29 2b 38 2e 35 37 45 |-3*.(2*M|D)+8.57E|
|00002a20| 2d 34 2a 9b 28 32 2a 44 | 45 2b 4d 44 29 2b 45 2a |-4*.(2*D|E+MD)+E*|
|00002a30| 35 2e 33 33 45 2d 34 2a | 9b 28 32 2a 44 45 2d 4d |5.33E-4*|.(2*DE-M|
|00002a40| 53 29 2b 45 2a 34 2e 30 | 31 45 2d 34 2a 9b 28 32 |S)+E*4.0|1E-4*.(2|
|00002a50| 2a 44 45 2d 4d 44 2d 4d | 53 29 2b 45 2a 33 2e 32 |*DE-MD-M|S)+E*3.2|
|00002a60| 45 2d 34 2a 9b 28 4d 44 | 2d 4d 53 29 2d 32 2e 37 |E-4*.(MD|-MS)-2.7|
|00002a70| 31 45 2d 34 2a 9b 28 44 | 45 29 2d 45 2a 32 2e 36 |1E-4*.(D|E)-E*2.6|
|00002a80| 34 45 2d 34 2a 9b 28 4d | 53 2b 4d 44 29 0d 0c 8a |4E-4*.(M|S+MD)...|
|00002a90| c6 20 48 50 3d 48 50 2d | 31 2e 39 38 45 2d 34 2a |. HP=HP-|1.98E-4*|
|00002aa0| 9b 28 32 2a 46 2d 4d 44 | 29 2b 31 2e 37 33 45 2d |.(2*F-MD|)+1.73E-|
|00002ab0| 34 2a 9b 28 33 2a 4d 44 | 29 2b 31 2e 36 37 45 2d |4*.(3*MD|)+1.67E-|
|00002ac0| 34 2a 9b 28 34 2a 44 45 | 2d 4d 44 29 2d 45 2a 31 |4*.(4*DE|-MD)-E*1|
|00002ad0| 2e 31 31 45 2d 34 2a 9b | 28 4d 53 29 2b 31 2e 30 |.11E-4*.|(MS)+1.0|
|00002ae0| 33 45 2d 34 2a 9b 28 34 | 2a 44 45 2d 32 2a 4d 44 |3E-4*.(4|*DE-2*MD|
|00002af0| 29 2d 38 2e 34 45 2d 35 | 2a 9b 28 32 2a 4d 44 2d |)-8.4E-5|*.(2*MD-|
|00002b00| 32 2a 44 45 29 2d 45 2a | 38 2e 33 45 2d 35 2a 9b |2*DE)-E*|8.3E-5*.|
|00002b10| 28 32 2a 44 45 2b 4d 53 | 29 2b 37 2e 39 45 2d 35 |(2*DE+MS|)+7.9E-5|
|00002b20| 2a 9b 28 32 2a 44 45 2b | 32 2a 4d 44 29 2b 37 2e |*.(2*DE+|2*MD)+7.|
|00002b30| 32 45 2d 35 2a 9b 28 34 | 2a 44 45 29 2b 45 2a 36 |2E-5*.(4|*DE)+E*6|
|00002b40| 2e 34 45 2d 35 2a 9b 28 | 32 2a 44 45 2d 4d 53 2b |.4E-5*.(|2*DE-MS+|
|00002b50| 4d 44 29 0d 0c 94 d4 20 | 48 50 3d 48 50 2d 45 2a |MD).... |HP=HP-E*|
|00002b60| 36 2e 33 45 2d 35 2a 9b | 28 32 2a 44 45 2b 4d 53 |6.3E-5*.|(2*DE+MS|
|00002b70| 2d 4d 44 29 2b 45 2a 34 | 2e 31 45 2d 35 2a 9b 28 |-MD)+E*4|.1E-5*.(|
|00002b80| 4d 53 2b 44 45 29 2b 45 | 2a 33 2e 35 45 2d 35 2a |MS+DE)+E|*3.5E-5*|
|00002b90| 9b 28 32 2a 4d 44 2d 4d | 53 29 2d 33 2e 33 45 2d |.(2*MD-M|S)-3.3E-|
|00002ba0| 35 2a 9b 28 33 2a 4d 44 | 2d 32 2a 44 45 29 2d 33 |5*.(3*MD|-2*DE)-3|
|00002bb0| 45 2d 35 2a 9b 28 4d 44 | 2b 44 45 29 2d 32 2e 39 |E-5*.(MD|+DE)-2.9|
|00002bc0| 45 2d 35 2a 9b 28 32 2a | 28 46 2d 44 45 29 29 2d |E-5*.(2*|(F-DE))-|
|00002bd0| 45 2a 32 2e 39 45 2d 35 | 2a 9b 28 32 2a 4d 44 2b |E*2.9E-5|*.(2*MD+|
|00002be0| 4d 53 29 2b 45 32 2a 32 | 2e 36 45 2d 35 2a 9b 28 |MS)+E2*2|.6E-5*.(|
|00002bf0| 32 2a 28 44 45 2d 4d 53 | 29 29 2d 32 2e 33 45 2d |2*(DE-MS|))-2.3E-|
|00002c00| 35 2a 9b 28 32 2a 28 46 | 2d 44 45 29 2b 4d 44 29 |5*.(2*(F|-DE)+MD)|
|00002c10| 2b 45 2a 31 2e 39 45 2d | 35 2a 9b 28 34 2a 44 45 |+E*1.9E-|5*.(4*DE|
|00002c20| 2d 4d 53 2d 4d 44 29 0d | 0c 9e 05 3a 0d 0c a8 10 |-MS-MD).|...:....|
|00002c30| 20 48 50 3d a4 52 41 44 | 28 48 50 29 0d 0c b2 06 | HP=.RAD|(HP)....|
|00002c40| 20 e1 0d 0c bc 06 20 3a | 0d 0c c6 0d 20 dd f2 4d | ..... :|.... ..M|
|00002c50| 6f 6f 6e 6e 66 0d 0c d0 | 19 20 44 59 30 3d 44 59 |oonnf...|. DY0=DY|
|00002c60| 3a 4d 4e 30 3d 4d 4e 3a | 59 52 30 3d 59 52 0d 0c |:MN0=MN:|YR0=YR..|
|00002c70| da 20 20 4d 4e 3d 31 3a | 44 59 3d 30 3a 46 4c 41 |.  MN=1:|DY=0:FLA|
|00002c80| 47 28 31 29 3d 30 3a f2 | 4a 75 6c 64 61 79 0d 0c |G(1)=0:.|Julday..|
|00002c90| e4 1b 20 44 4a 44 30 3d | 44 4a 44 3a 4d 4e 3d 4d |.. DJD0=|DJD:MN=M|
|00002ca0| 4e 30 3a 44 59 3d 44 59 | 30 0d 0c ee 16 20 46 4c |N0:DY=DY|0.... FL|
|00002cb0| 41 47 28 31 29 3d 30 3a | f2 4a 75 6c 64 61 79 0d |AG(1)=0:|.Julday.|
|00002cc0| 0c f8 2a 20 4b 3d 28 59 | 52 30 2d 31 39 30 30 2b |..* K=(Y|R0-1900+|
|00002cd0| 28 28 44 4a 44 2d 44 4a | 44 30 29 2f 33 36 35 29 |((DJD-DJ|D0)/365)|
|00002ce0| 29 2a 31 32 2e 33 36 38 | 35 0d 0d 02 1f 20 4b 3d |)*12.368|5.... K=|
|00002cf0| a4 4c 49 46 28 4b 2b 30 | 2e 35 29 3a 54 4e 3d 4b |.LIF(K+0|.5):TN=K|
|00002d00| 2f 31 32 33 36 2e 38 35 | 0d 0d 0c 25 20 54 46 3d |/1236.85|...% TF=|
|00002d10| 28 4b 2b 30 2e 35 29 2f | 31 32 33 36 2e 38 35 3a |(K+0.5)/|1236.85:|
|00002d20| 54 3d 54 4e 3a f2 4c 6f | 63 61 6c 6e 66 0d 0d 16 |T=TN:.Lo|calnf...|
|00002d30| 17 20 4a 44 30 4e 3d 41 | 3a 4a 44 31 4e 3d 42 3a |. JD0N=A|:JD1N=B:|
|00002d40| 4e 46 3d 46 0d 0d 20 1a | 20 54 3d 54 46 3a 4b 3d |NF=F.. .| T=TF:K=|
|00002d50| 4b 2b 30 2e 35 3a f2 4c | 6f 63 61 6c 6e 66 0d 0d |K+0.5:.L|ocalnf..|
|00002d60| 2a 17 20 4a 44 30 46 3d | 41 3a 4a 44 31 46 3d 42 |*. JD0F=|A:JD1F=B|
|00002d70| 3a 46 46 3d 46 0d 0d 34 | 06 20 e1 0d 0d 3e 06 20 |:FF=F..4|. ...>. |
|00002d80| 3a 0d 0d 48 0e 20 dd f2 | 4c 6f 63 61 6c 6e 66 0d |:..H. ..|Localnf.|
|00002d90| 0d 52 15 20 54 32 3d 54 | 2a 54 3a 41 3d 32 39 2e |.R. T2=T|*T:A=29.|
|00002da0| 35 33 2a 4b 0d 0d 5c 29 | 20 43 3d a4 52 41 44 28 |53*K..\)| C=.RAD(|
|00002db0| 31 36 36 2e 35 36 2b 28 | 31 33 32 2e 38 37 2d 39 |166.56+(|132.87-9|
|00002dc0| 2e 31 37 33 45 2d 33 2a | 54 29 2a 54 29 0d 0d 66 |.173E-3*|T)*T)..f|
|00002dd0| 40 20 42 3d 35 2e 38 38 | 36 38 45 2d 34 2a 4b 2b |@ B=5.88|68E-4*K+|
|00002de0| 28 31 2e 31 37 38 45 2d | 34 2d 31 2e 35 35 45 2d |(1.178E-|4-1.55E-|
|00002df0| 37 2a 54 29 2a 54 32 2b | 33 2e 33 45 2d 34 2a b5 |7*T)*T2+|3.3E-4*.|
|00002e00| 28 43 29 2b 37 2e 35 39 | 33 33 45 2d 31 0d 0d 70 |(C)+7.59|33E-1..p|
|00002e10| 40 20 4d 53 3d 33 35 39 | 2e 32 32 34 32 2b 33 36 |@ MS=359|.2242+36|
|00002e20| 30 2a a4 55 4e 57 28 4b | 2f 31 2e 32 33 36 38 38 |0*.UNW(K|/1.23688|
|00002e30| 36 45 31 2c 31 29 2d 28 | 33 2e 33 33 45 2d 35 2b |6E1,1)-(|3.33E-5+|
|00002e40| 33 2e 34 37 45 2d 36 2a | 54 29 2a 54 32 0d 0d 7a |3.47E-6*|T)*T2..z|
|00002e50| 45 20 4d 4d 3d 33 30 36 | 2e 30 32 35 33 2b 33 36 |E MM=306|.0253+36|
|00002e60| 30 2a a4 55 4e 57 28 4b | 2f 39 2e 33 33 30 38 35 |0*.UNW(K|/9.33085|
|00002e70| 31 45 2d 31 2c 31 29 2b | 28 31 2e 30 37 33 30 36 |1E-1,1)+|(1.07306|
|00002e80| 45 2d 32 2b 31 2e 32 33 | 36 45 2d 35 2a 54 29 2a |E-2+1.23|6E-5*T)*|
|00002e90| 54 32 0d 0d 84 41 20 46 | 3d 32 31 2e 32 39 36 34 |T2...A F|=21.2964|
|00002ea0| 2b 33 36 30 2a a4 55 4e | 57 28 4b 2f 39 2e 32 31 |+360*.UN|W(K/9.21|
|00002eb0| 34 39 32 36 45 2d 31 2c | 31 29 2d 28 31 2e 36 35 |4926E-1,|1)-(1.65|
|00002ec0| 32 38 45 2d 33 2b 32 2e | 33 39 45 2d 36 2a 54 29 |28E-3+2.|39E-6*T)|
|00002ed0| 2a 54 32 0d 0d 8e 24 20 | 4d 53 3d a4 55 4e 57 28 |*T2...$ |MS=.UNW(|
|00002ee0| 4d 53 2c 33 36 30 29 3a | 4d 4d 3d a4 55 4e 57 28 |MS,360):|MM=.UNW(|
|00002ef0| 4d 4d 2c 33 36 30 29 0d | 0d 98 1e 20 46 3d a4 55 |MM,360).|... F=.U|
|00002f00| 4e 57 28 46 2c 33 36 30 | 29 3a 4d 53 3d a4 52 41 |NW(F,360|):MS=.RA|
|00002f10| 44 28 4d 53 29 0d 0d a2 | 1a 20 4d 4d 3d a4 52 41 |D(MS)...|. MM=.RA|
|00002f20| 44 28 4d 4d 29 3a 46 3d | a4 52 41 44 28 46 29 0d |D(MM):F=|.RAD(F).|
|00002f30| 0d ac ca 20 44 44 4a 44 | 3d 28 31 2e 37 33 34 45 |... DDJD|=(1.734E|
|00002f40| 2d 31 2d 33 2e 39 33 45 | 2d 34 2a 54 29 2a b5 28 |-1-3.93E|-4*T)*.(|
|00002f50| 4d 53 29 2b 32 2e 31 45 | 2d 33 2a b5 28 32 2a 4d |MS)+2.1E|-3*.(2*M|
|00002f60| 53 29 2d 34 2e 30 36 38 | 45 2d 31 2a b5 28 4d 4d |S)-4.068|E-1*.(MM|
|00002f70| 29 2b 31 2e 36 31 45 2d | 32 2a b5 28 32 2a 4d 4d |)+1.61E-|2*.(2*MM|
|00002f80| 29 2d 34 45 2d 34 2a b5 | 28 33 2a 4d 4d 29 2b 31 |)-4E-4*.|(3*MM)+1|
|00002f90| 2e 30 34 45 2d 32 2a b5 | 28 32 2a 46 29 2d 35 2e |.04E-2*.|(2*F)-5.|
|00002fa0| 31 45 2d 33 2a b5 28 4d | 53 2b 4d 4d 29 2d 37 2e |1E-3*.(M|S+MM)-7.|
|00002fb0| 34 45 2d 33 2a b5 28 4d | 53 2d 4d 4d 29 2b 34 45 |4E-3*.(M|S-MM)+4E|
|00002fc0| 2d 34 2a b5 28 32 2a 46 | 2b 4d 53 29 2d 34 45 2d |-4*.(2*F|+MS)-4E-|
|00002fd0| 34 2a b5 28 32 2a 46 2d | 4d 53 29 2d 36 45 2d 34 |4*.(2*F-|MS)-6E-4|
|00002fe0| 2a b5 28 32 2a 46 2b 4d | 4d 29 2b 31 45 2d 33 2a |*.(2*F+M|M)+1E-3*|
|00002ff0| b5 28 32 2a 46 2d 4d 4d | 29 0d 0d b6 1e 20 44 44 |.(2*F-MM|).... DD|
|00003000| 4a 44 3d 44 44 4a 44 2b | 35 45 2d 34 2a b5 28 4d |JD=DDJD+|5E-4*.(M|
|00003010| 53 2b 32 2a 4d 4d 29 0d | 0d c0 24 20 41 31 3d a8 |S+2*MM).|..$ A1=.|
|00003020| 28 41 29 3a 42 3d 42 2b | 44 44 4a 44 2b 28 41 2d |(A):B=B+|DDJD+(A-|
|00003030| 41 31 29 3a 42 31 3d a8 | 28 42 29 0d 0d ca 13 20 |A1):B1=.|(B).... |
|00003040| 41 3d 41 31 2b 42 31 3a | 42 3d 42 2d 42 31 0d 0d |A=A1+B1:|B=B-B1..|
|00003050| d4 06 20 e1 0d 0d de 06 | 20 3a 0d 0d e8 0e 20 dd |.. .....| :.... .|
|00003060| f2 45 63 6c 69 70 73 65 | 0d 0d f2 12 20 45 52 52 |.Eclipse|.... ERR|
|00003070| 36 3d 30 3a 45 52 52 37 | 3d 30 0d 0d fc 0c 20 f2 |6=0:ERR7|=0.... .|
|00003080| 4d 6f 6f 6e 6e 66 0d 0e | 06 21 20 e7 20 54 50 24 |Moonnf..|.! . TP$|
|00003090| 3d 22 4c 22 20 8c 20 44 | 46 3d 94 28 a4 55 4e 57 |="L" . D|F=.(.UNW|
|000030a0| 28 46 46 2c af 29 29 0d | 0e 10 23 20 e7 20 54 50 |(FF,.)).|..# . TP|
|000030b0| 24 3c 3e 20 22 4c 22 20 | 8c 20 44 46 3d 94 28 a4 |$<> "L" |. DF=.(.|
|000030c0| 55 4e 57 28 4e 46 2c af | 29 29 0d 0e 1a 18 20 e7 |UNW(NF,.|)).... .|
|000030d0| 20 44 46 3e 30 2e 33 37 | 20 8c 20 44 46 3d af 2d | DF>0.37| . DF=.-|
|000030e0| 44 46 0d 0e 24 38 20 e7 | 20 44 46 3c 32 2e 34 33 |DF..$8 .| DF<2.43|
|000030f0| 36 30 30 37 36 36 45 2d | 31 20 f1 22 2a 2a 20 65 |600766E-|1 ."** e|
|00003100| 63 6c 69 70 73 65 20 63 | 65 72 74 61 69 6e 2e 2e |clipse c|ertain..|
|00003110| 2e 20 22 3a e5 20 8d 44 | 42 4e 0d 0e 2e 30 20 e7 |. ":. .D|BN...0 .|
|00003120| 20 44 46 3c 30 2e 33 37 | 20 f1 22 2a 2a 20 65 63 | DF<0.37| ."** ec|
|00003130| 6c 69 70 73 65 20 70 6f | 73 73 69 62 6c 65 2e 2e |lipse po|ssible..|
|00003140| 2e 20 22 3a e5 20 8d 44 | 42 4e 0d 0e 38 20 20 f1 |. ":. .D|BN..8  .|
|00003150| 22 2a 2a 20 6e 6f 20 65 | 63 6c 69 70 73 65 2e 2e |"** no e|clipse..|
|00003160| 2e 2e 22 3a 45 52 52 36 | 3d 31 0d 0e 42 23 20 44 |..":ERR6|=1..B# D|
|00003170| 4a 44 3d 4a 44 30 4e 2b | 30 2e 35 3a 58 3d 4a 44 |JD=JD0N+|0.5:X=JD|
|00003180| 31 4e 2d 30 2e 35 3a 44 | 50 53 49 3d 30 0d 0e 4c |1N-0.5:D|PSI=0..L|
|00003190| 28 20 e7 20 54 50 24 3d | 22 4c 22 20 8c 20 44 4a |( . TP$=|"L" . DJ|
|000031a0| 44 3d 4a 44 30 46 2b 30 | 2e 35 3a 58 3d 4a 44 31 |D=JD0F+0|.5:X=JD1|
|000031b0| 46 2d 30 2e 35 0d 0e 56 | 1b 20 e7 58 3c 30 20 8c |F-0.5..V|. .X<0 .|
|000031c0| 20 58 3d 58 2b 31 3a 44 | 4a 44 3d 44 4a 44 2d 31 | X=X+1:D|JD=DJD-1|
|000031d0| 0d 0e 60 1d 20 46 4c 41 | 47 28 32 29 3d 30 3a f2 |..`. FLA|G(2)=0:.|
|000031e0| 43 61 6c 64 61 79 3a 44 | 59 30 3d 44 59 0d 0e 6a |Calday:D|Y0=DY..j|
|000031f0| 10 20 e7 20 45 52 52 36 | 3c 3e 30 20 e1 0d 0e 74 |. . ERR6|<>0 ...t|
|00003200| 23 20 44 59 3d 44 59 2b | 58 2d 28 31 2f 32 34 29 |# DY=DY+|X-(1/24)|
|00003210| 3a 58 44 44 3d 58 3a 46 | 4c 41 47 28 31 29 3d 30 |:XDD=X:F|LAG(1)=0|
|00003220| 0d 0e 7e 16 20 f2 53 75 | 6e 3a 4c 31 3d 4c 53 4e |..~. .Su|n:L1=LSN|
|00003230| 3a f2 4d 6f 6f 6e 0d 0e | 88 28 20 4c 4d 31 3d 4c |:.Moon..|.( LM1=L|
|00003240| 41 4d 3a 42 54 31 3d 42 | 45 54 3a 48 50 31 3d 48 |AM:BT1=B|ET:HP1=H|
|00003250| 50 3a 44 59 3d 44 59 2b | 28 31 2f 31 32 29 0d 0e |P:DY=DY+|(1/12)..|
|00003260| 92 1e 20 46 4c 41 47 28 | 31 29 3d 30 3a f2 53 75 |.. FLAG(|1)=0:.Su|
|00003270| 6e 3a 44 4c 53 3d 4c 53 | 4e 2d 4c 31 0d 0e 9c 1a |n:DLS=LS|N-L1....|
|00003280| 20 e7 20 44 4c 53 3c 30 | 20 8c 20 44 4c 53 3d 44 | . DLS<0| . DLS=D|
|00003290| 4c 53 2b 54 50 49 0d 0e | a6 21 20 f2 4d 6f 6f 6e |LS+TPI..|.! .Moon|
|000032a0| 3a 4c 4d 32 3d 4c 41 4d | 3a 42 54 32 3d 42 45 54 |:LM2=LAM|:BT2=BET|
|000032b0| 3a 48 50 32 3d 48 50 0d | 0e b0 14 20 e7 20 54 50 |:HP2=HP.|... . TP|
|000032c0| 24 3d 22 4c 22 20 8c 8d | 64 6c 4e 0d 0e ba 21 20 |$="L" ..|dlN...! |
|000032d0| 46 4c 41 47 28 36 29 3d | 30 3a f2 4e 75 74 61 74 |FLAG(6)=|0:.Nutat|
|000032e0| 3a 58 3d 4c 4d 31 3a 59 | 3d 42 54 31 0d 0e c4 1f |:X=LM1:Y|=BT1....|
|000032f0| 20 58 48 3d 58 44 44 2a | 32 34 3a 54 49 4d 3d 58 | XH=XDD*|24:TIM=X|
|00003300| 48 2d 31 3a 45 48 50 3d | 48 50 31 0d 0e ce 22 20 |H-1:EHP=|HP1..." |
|00003310| f2 50 61 72 61 6c 6c 61 | 78 5f 43 6f 72 72 65 63 |.Paralla|x_Correc|
|00003320| 74 3a 4c 4d 31 3d 50 3a | 42 54 31 3d 51 0d 0e d8 |t:LM1=P:|BT1=Q...|
|00003330| 21 20 58 3d 4c 4d 32 3a | 59 3d 42 54 32 3a 54 49 |! X=LM2:|Y=BT2:TI|
|00003340| 4d 3d 58 48 2b 31 3a 45 | 48 50 3d 48 50 32 0d 0e |M=XH+1:E|HP=HP2..|
|00003350| e2 22 20 f2 50 61 72 61 | 6c 6c 61 78 5f 43 6f 72 |." .Para|llax_Cor|
|00003360| 72 65 63 74 3a 4c 4d 32 | 3d 50 3a 42 54 32 3d 51 |rect:LM2|=P:BT2=Q|
|00003370| 0d 0e ec 1a 20 58 48 3d | 58 44 44 2a 32 34 3a 44 |.... XH=|XDD*24:D|
|00003380| 4c 4d 3d 4c 4d 32 2d 4c | 4d 31 0d 0e f6 1a 20 e7 |LM=LM2-L|M1.... .|
|00003390| 20 44 4c 4d 3c 30 20 8c | 20 44 4c 4d 3d 44 4c 4d | DLM<0 .| DLM=DLM|
|000033a0| 2b 54 50 49 0d 0f 00 1f | 20 58 48 30 3d 58 48 2b |+TPI....| XH0=XH+|
|000033b0| 31 2d 28 32 2a 42 54 32 | 2f 28 42 54 32 2d 42 54 |1-(2*BT2|/(BT2-BT|
|000033c0| 31 29 29 0d 0f 0a 17 20 | 4c 48 3d 28 44 4c 4d 2d |1)).... |LH=(DLM-|
|000033d0| 44 4c 53 29 2f 32 3a 51 | 3d 30 0d 0f 14 1f 20 4c |DLS)/2:Q|=0.... L|
|000033e0| 4d 30 3d 4c 4d 31 2b 28 | 44 4c 4d 2a 28 58 48 30 |M0=LM1+(|DLM*(XH0|
|000033f0| 2d 58 48 2b 31 29 2f 32 | 29 0d 0f 1e 2a 20 46 4c |-XH+1)/2|)...* FL|
|00003400| 41 47 28 31 29 3d 30 3a | 44 59 3d 44 59 30 2b 28 |AG(1)=0:|DY=DY0+(|
|00003410| 58 48 30 2f 32 34 29 2d | 35 2e 37 37 31 36 30 35 |XH0/24)-|5.771605|
|00003420| 45 2d 33 0d 0f 28 24 20 | f2 53 75 6e 3a 4c 53 4e |E-3..($ |.Sun:LSN|
|00003430| 3d 4c 53 4e 2b a4 52 41 | 44 28 44 50 53 49 2d 35 |=LSN+.RA|D(DPSI-5|
|00003440| 2e 36 39 45 2d 33 29 0d | 0f 32 2b 20 e7 20 54 50 |.69E-3).|.2+ . TP|
|00003450| 24 3d 22 4c 22 20 8c 20 | 4c 53 4e 3d a4 55 4e 57 |$="L" . |LSN=.UNW|
|00003460| 28 4c 53 4e 2b af 2c 54 | 50 49 29 3a e5 20 8d 44 |(LSN+.,T|PI):. .D|
|00003470| 50 4f 0d 0f 3c 21 20 58 | 3d 4c 53 4e 3a 59 3d 30 |PO..<! X|=LSN:Y=0|
|00003480| 3a 54 49 4d 3d a4 55 4e | 57 28 44 59 2a 32 34 2c |:TIM=.UN|W(DY*24,|
|00003490| 32 34 29 0d 0f 46 30 20 | 45 48 50 3d 34 2e 32 36 |24)..F0 |EHP=4.26|
|000034a0| 33 34 35 32 45 2d 35 2f | 52 53 4e 3a f2 50 61 72 |3452E-5/|RSN:.Par|
|000034b0| 61 6c 6c 61 78 5f 43 6f | 72 72 65 63 74 3a 4c 53 |allax_Co|rrect:LS|
|000034c0| 4e 3d 50 0d 0f 50 25 20 | 42 54 31 3d 42 54 31 2d |N=P..P% |BT1=BT1-|
|000034d0| 51 3a 42 54 32 3d 42 54 | 32 2d 51 3a 50 53 30 3d |Q:BT2=BT|2-Q:PS0=|
|000034e0| 34 2e 32 36 33 45 2d 35 | 0d 0f 5a 1e 20 5a 48 3d |4.263E-5|..Z. ZH=|
|000034f0| 28 4c 53 4e 2d 4c 4d 30 | 29 2f 4c 48 3a 54 43 3d |(LSN-LM0|)/LH:TC=|
|00003500| 58 48 30 2b 5a 48 0d 0f | 64 28 20 53 48 3d 28 28 |XH0+ZH..|d( SH=((|
|00003510| 28 42 54 32 2d 42 54 31 | 29 2a 28 54 43 2d 58 48 |(BT2-BT1|)*(TC-XH|
|00003520| 2d 31 29 2f 32 29 2b 42 | 54 32 29 2f 4c 48 0d 0f |-1)/2)+B|T2)/LH..|
|00003530| 6e 28 20 53 48 32 3d 53 | 48 2a 53 48 3a 5a 48 32 |n( SH2=S|H*SH:ZH2|
|00003540| 3d 5a 48 2a 5a 48 3a 50 | 53 3d 50 53 30 2f 28 52 |=ZH*ZH:P|S=PS0/(R|
|00003550| 53 4e 2a 4c 48 29 0d 0f | 78 1f 20 5a 31 48 3d 28 |SN*LH)..|x. Z1H=(|
|00003560| 5a 48 2a 5a 48 32 2f 28 | 5a 48 32 2b 53 48 32 29 |ZH*ZH2/(|ZH2+SH2)|
|00003570| 29 2b 58 48 30 0d 0f 82 | 2b 20 48 50 30 3d 28 48 |)+XH0...|+ HP0=(H|
|00003580| 50 31 2b 48 50 32 29 2f | 28 32 2a 4c 48 29 3a 52 |P1+HP2)/|(2*LH):R|
|00003590| 4d 3d 32 2e 37 32 34 34 | 36 45 2d 31 2a 48 50 30 |M=2.7244|6E-1*HP0|
|000035a0| 0d 0f 8c 2b 20 52 53 3d | 34 2e 36 35 32 34 32 45 |...+ RS=|4.65242E|
|000035b0| 2d 33 2f 28 4c 48 2a 52 | 53 4e 29 3a 48 50 44 3d |-3/(LH*R|SN):HPD=|
|000035c0| 48 50 30 2a 30 2e 39 39 | 38 33 34 0d 0f 96 2c 20 |HP0*0.99|834..., |
|000035d0| 52 55 3d 28 48 50 44 2d | 52 53 2b 50 53 29 2a 31 |RU=(HPD-|RS+PS)*1|
|000035e0| 2e 30 32 3a 52 50 3d 28 | 48 50 44 2b 52 53 2b 50 |.02:RP=(|HPD+RS+P|
|000035f0| 53 29 2a 31 2e 30 32 0d | 0f a0 1b 20 50 48 3d 94 |S)*1.02.|... PH=.|
|00003600| 28 53 48 2a 5a 48 2f b6 | 28 53 48 32 2b 5a 48 32 |(SH*ZH/.|(SH2+ZH2|
|00003610| 29 29 0d 0f aa 26 20 5a | 33 48 3d 28 4c 53 4e 2d |))...& Z|3H=(LSN-|
|00003620| 4c 4d 31 29 2f 4c 48 3a | 5a 34 48 3d 28 4c 53 4e |LM1)/LH:|Z4H=(LSN|
|00003630| 2d 4c 4d 32 29 2f 4c 48 | 0d 0f b4 1a 20 53 33 48 |-LM2)/LH|.... S3H|
|00003640| 3d 42 54 31 2f 4c 48 3a | 53 34 48 3d 42 54 32 2f |=BT1/LH:|S4H=BT2/|
|00003650| 4c 48 0d 0f be 14 20 e7 | 20 54 50 24 3d 22 4c 22 |LH.... .| TP$="L"|
|00003660| 20 8c 8d 54 4e 50 0d 0f | c8 27 20 52 3d 52 4d 2b | ..TNP..|.' R=RM+|
|00003670| 52 53 3a 5a 44 32 3d a4 | 5a 28 28 5a 31 48 2d 58 |RS:ZD2=.|Z((Z1H-X|
|00003680| 48 30 29 2c 5a 48 32 2c | 52 2c 5a 48 29 0d 0f d2 |H0),ZH2,|R,ZH)...|
|00003690| 1b 20 e7 20 5a 44 32 3c | 30 20 f2 43 6f 6e 64 69 |. . ZD2<|0 .Condi|
|000036a0| 74 69 6f 6e 5f 41 3a e1 | 0d 0f dc 06 20 3a 0d 0f |tion_A:.|.... :..|
|000036b0| e6 1a 20 5a 44 3d b6 28 | 5a 44 32 29 3a 5a 32 48 |.. ZD=.(|ZD2):Z2H|
|000036c0| 31 3d 5a 31 48 2d 5a 44 | 0d 0f f0 1b 20 5a 32 48 |1=Z1H-ZD|.... Z2H|
|000036d0| 32 3d a4 55 4e 57 28 28 | 5a 31 48 2b 5a 44 29 2c |2=.UNW((|Z1H+ZD),|
|000036e0| 32 34 29 0d 0f fa 1c 20 | e7 20 5a 32 48 31 3c 30 |24).... |. Z2H1<0|
|000036f0| 20 8c 20 5a 32 48 31 3d | 5a 32 48 31 2b 32 34 0d | . Z2H1=|Z2H1+24.|
|00003700| 10 04 1b 20 4d 47 3d 28 | 52 4d 2b 52 53 2d 50 48 |... MG=(|RM+RS-PH|
|00003710| 29 2f 28 32 2a 52 53 29 | 3a e1 0d 10 0e 27 20 52 |)/(2*RS)|:....' R|
|00003720| 3d 52 4d 2b 52 50 3a 5a | 44 32 3d a4 5a 28 28 5a |=RM+RP:Z|D2=.Z((Z|
|00003730| 31 48 2d 58 48 30 29 2c | 5a 48 32 2c 52 2c 5a 48 |1H-XH0),|ZH2,R,ZH|
|00003740| 29 0d 10 18 1b 20 e7 20 | 5a 44 32 3c 30 20 f2 43 |).... . |ZD2<0 .C|
|00003750| 6f 6e 64 69 74 69 6f 6e | 5f 42 3a e1 0d 10 22 06 |ondition|_B:...".|
|00003760| 20 3a 0d 10 2c 1a 20 5a | 44 3d b6 28 5a 44 32 29 | :..,. Z|D=.(ZD2)|
|00003770| 3a 5a 32 48 31 3d 5a 31 | 48 2d 5a 44 0d 10 36 1b |:Z2H1=Z1|H-ZD..6.|
|00003780| 20 5a 32 48 32 3d a4 55 | 4e 57 28 28 5a 31 48 2b | Z2H2=.U|NW((Z1H+|
|00003790| 5a 44 29 2c 32 34 29 0d | 10 40 1c 20 e7 20 5a 32 |ZD),24).|.@. . Z2|
|000037a0| 48 31 3c 30 20 8c 20 5a | 32 48 31 3d 5a 32 48 31 |H1<0 . Z|2H1=Z2H1|
|000037b0| 2b 32 34 0d 10 4a 27 20 | 52 3d 52 4d 2b 52 55 3a |+24..J' |R=RM+RU:|
|000037c0| 5a 44 32 3d a4 5a 28 28 | 5a 31 48 2d 58 48 30 29 |ZD2=.Z((|Z1H-XH0)|
|000037d0| 2c 5a 48 32 2c 52 2c 5a | 48 29 0d 10 54 19 20 4d |,ZH2,R,Z|H)..T. M|
|000037e0| 47 3d 28 52 4d 2b 52 50 | 2d 50 48 29 2f 28 32 2a |G=(RM+RP|-PH)/(2*|
|000037f0| 52 4d 29 0d 10 5e 17 20 | e7 20 5a 44 32 3c 30 20 |RM)..^. |. ZD2<0 |
|00003800| 8c 20 45 52 52 37 3d 31 | 3a e1 0d 10 68 06 20 3a |. ERR7=1|:...h. :|
|00003810| 0d 10 72 1a 20 5a 44 3d | b6 28 5a 44 32 29 3a 5a |..r. ZD=|.(ZD2):Z|
|00003820| 32 48 33 3d 5a 31 48 2d | 5a 44 0d 10 7c 1b 20 5a |2H3=Z1H-|ZD..|. Z|
|00003830| 32 48 34 3d a4 55 4e 57 | 28 28 5a 31 48 2b 5a 44 |2H4=.UNW|((Z1H+ZD|
|00003840| 29 2c 32 34 29 0d 10 86 | 1c 20 e7 20 5a 32 48 33 |),24)...|. . Z2H3|
|00003850| 3c 30 20 8c 20 5a 32 48 | 33 3d 5a 32 48 33 2b 32 |<0 . Z2H|3=Z2H3+2|
|00003860| 34 0d 10 90 27 20 52 3d | 52 55 2d 52 4d 3a 5a 44 |4...' R=|RU-RM:ZD|
|00003870| 32 3d a4 5a 28 28 5a 31 | 48 2d 58 48 30 29 2c 5a |2=.Z((Z1|H-XH0),Z|
|00003880| 48 32 2c 52 2c 5a 48 29 | 0d 10 9a 19 20 4d 47 3d |H2,R,ZH)|.... MG=|
|00003890| 28 52 4d 2b 52 55 2d 50 | 48 29 2f 28 32 2a 52 4d |(RM+RU-P|H)/(2*RM|
|000038a0| 29 0d 10 a4 17 20 e7 20 | 5a 44 32 3c 30 20 8c 20 |).... . |ZD2<0 . |
|000038b0| 45 52 52 37 3d 32 3a e1 | 0d 10 ae 06 20 3a 0d 10 |ERR7=2:.|.... :..|
|000038c0| b8 1a 20 5a 44 3d b6 28 | 5a 44 32 29 3a 5a 32 48 |.. ZD=.(|ZD2):Z2H|
|000038d0| 35 3d 5a 31 48 2d 5a 44 | 0d 10 c2 1b 20 5a 32 48 |5=Z1H-ZD|.... Z2H|
|000038e0| 36 3d a4 55 4e 57 28 28 | 5a 31 48 2b 5a 44 29 2c |6=.UNW((|Z1H+ZD),|
|000038f0| 32 34 29 0d 10 cc 1c 20 | e7 20 5a 32 48 35 3c 30 |24).... |. Z2H5<0|
|00003900| 20 8c 20 5a 32 48 35 3d | 5a 32 48 35 2b 32 34 0d | . Z2H5=|Z2H5+24.|
|00003910| 10 d6 06 20 e1 0d 10 e0 | 06 20 3a 0d 10 ea 12 20 |... ....|. :.... |
|00003920| dd f2 43 6f 6e 64 69 74 | 69 6f 6e 5f 41 0d 10 f4 |..Condit|ion_A...|
|00003930| 35 20 f1 22 2e 2e 2e 20 | 62 75 74 20 69 73 20 6e |5 ."... |but is n|
|00003940| 6f 74 20 73 65 65 6e 20 | 66 72 6f 6d 20 74 68 69 |ot seen |from thi|
|00003950| 73 20 6c 6f 63 61 74 69 | 6f 6e 22 3a 45 52 52 36 |s locati|on":ERR6|
|00003960| 3d 32 0d 10 fe 06 20 e1 | 0d 11 08 06 20 3a 0d 11 |=2.... .|.... :..|
|00003970| 12 12 20 dd f2 43 6f 6e | 64 69 74 69 6f 6e 5f 42 |.. ..Con|dition_B|
|00003980| 0d 11 1c 25 20 f1 22 2e | 2e 2e 20 62 75 74 20 64 |...% .".|.. but d|
|00003990| 6f 65 73 20 6e 6f 74 20 | 6f 63 63 75 72 22 3a 45 |oes not |occur":E|
|000039a0| 52 52 36 3d 31 0d 11 26 | 06 20 e1 0d 11 30 06 20 |RR6=1..&|. ...0. |
|000039b0| 3a 0d 11 3a 17 20 dd f2 | 50 61 72 61 6c 6c 61 78 |:..:. ..|Parallax|
|000039c0| 5f 43 6f 72 72 65 63 74 | 0d 11 44 21 20 53 57 33 |_Correct|..D! SW3|
|000039d0| 3d 2d 31 3a f2 45 71 65 | 63 6c 3a 43 4e 3d 33 2e |=-1:.Eqe|cl:CN=3.|
|000039e0| 38 31 39 37 31 38 36 33 | 34 0d 11 4e 23 20 58 31 |81971863|4..N# X1|
|000039f0| 3d 50 2a 43 4e 3a 53 57 | 32 3d 31 3a 46 4c 41 47 |=P*CN:SW|2=1:FLAG|
|00003a00| 28 33 29 3d 30 3a f2 47 | 74 69 6d 65 0d 11 58 1e |(3)=0:.G|time..X.|
|00003a10| 20 47 53 54 3d 47 54 4d | 3a 58 3d 58 31 3a f2 48 | GST=GTM|:X=X1:.H|
|00003a20| 72 61 6e 67 3a 53 57 36 | 3d 31 0d 11 62 24 20 58 |rang:SW6|=1..b$ X|
|00003a30| 3d 50 2f 43 4e 3a 59 3d | 51 3a f2 50 61 72 61 6c |=P/CN:Y=|Q:.Paral|
|00003a40| 6c 61 78 3a 59 3d 51 3a | 58 3d 50 2a 43 4e 0d 11 |lax:Y=Q:|X=P*CN..|
|00003a50| 6c 1f 20 f2 48 72 61 6e | 67 3a 58 3d 50 2f 43 4e |l. .Hran|g:X=P/CN|
|00003a60| 3a 53 57 33 3d 31 3a f2 | 45 71 65 63 6c 0d 11 76 |:SW3=1:.|Eqecl..v|
|00003a70| 06 20 e1 0d 11 80 06 20 | 3a 0d 11 8a 0f 20 dd 20 |. ..... |:.... . |
|00003a80| f2 44 69 73 70 6c 61 79 | 0d 11 94 09 20 eb 20 31 |.Display|.... . 1|
|00003a90| 32 0d 11 9e 09 20 ef 20 | 32 36 0d 11 a8 0f 20 e3 |2.... . |26.... .|
|00003aa0| 20 49 3d 30 20 b8 20 31 | 35 0d 11 b2 19 20 52 3d | I=0 . 1|5.... R=|
|00003ab0| 49 2a 31 36 3a 47 3d 49 | 2a 31 36 3a 42 3d 49 2a |I*16:G=I|*16:B=I*|
|00003ac0| 31 36 0d 11 bc 0e 20 fb | 20 49 2c 52 2c 47 2c 42 |16.... .| I,R,G,B|
|00003ad0| 0d 11 c6 08 20 ed 20 49 | 0d 11 d0 0c 20 e6 20 30 |.... . I|.... . 0|
|00003ae0| 2c 31 32 38 0d 11 da 06 | 20 da 0d 11 e4 0b 20 e6 |,128....| ..... .|
|00003af0| 20 30 2c 31 35 0d 11 ee | 15 20 86 20 30 2c 35 31 | 0,15...|. . 0,51|
|00003b00| 32 2c 31 32 37 39 2c 35 | 31 32 0d 11 f8 15 20 e7 |2,1279,5|12.... .|
|00003b10| 20 54 50 24 3d 22 53 22 | 20 8c 20 8d 64 40 52 0d | TP$="S"| . .d@R.|
|00003b20| 12 02 0f 20 53 43 4c 3d | 34 37 36 2f 52 50 0d 12 |... SCL=|476/RP..|
|00003b30| 0c 1f 20 58 25 3d 36 34 | 30 2b a8 28 28 5a 48 2d |.. X%=64|0+.((ZH-|
|00003b40| 5a 31 48 2b 58 48 30 29 | 2a 53 43 4c 29 0d 12 16 |Z1H+XH0)|*SCL)...|
|00003b50| 24 20 59 25 3d 35 31 32 | 2b a8 28 28 53 48 2a 28 |$ Y%=512|+.((SH*(|
|00003b60| 5a 31 48 2d 58 48 30 29 | 2f 5a 48 29 2a 53 43 4c |Z1H-XH0)|/ZH)*SCL|
|00003b70| 29 0d 12 20 11 20 52 25 | 3d a8 28 52 4d 2a 53 43 |).. . R%|=.(RM*SC|
|00003b80| 4c 29 0d 12 2a 13 20 c8 | 8f 20 c8 90 20 58 25 2c |L)..*. .|. .. X%,|
|00003b90| 59 25 2c 52 25 0d 12 34 | 0c 20 e6 20 31 2c 31 33 |Y%,R%..4|. . 1,13|
|00003ba0| 31 0d 12 3e 06 20 da 0d | 12 48 0a 20 e6 20 33 2c |1..>. ..|.H. . 3,|
|00003bb0| 37 0d 12 52 0c 20 58 31 | 25 3d 36 34 30 0d 12 5c |7..R. X1|%=640..\|
|00003bc0| 0c 20 59 31 25 3d 35 31 | 32 0d 12 66 11 20 52 25 |. Y1%=51|2..f. R%|
|00003bd0| 3d a8 28 52 50 2a 53 43 | 4c 29 0d 12 70 15 20 c8 |=.(RP*SC|L)..p. .|
|00003be0| 8f 20 c8 90 20 58 31 25 | 2c 59 31 25 2c 52 25 0d |. .. X1%|,Y1%,R%.|
|00003bf0| 12 7a 0a 20 e6 20 30 2c | 30 0d 12 84 11 20 52 25 |.z. . 0,|0.... R%|
|00003c00| 3d a8 28 52 55 2a 53 43 | 4c 29 0d 12 8e 15 20 c8 |=.(RU*SC|L).... .|
|00003c10| 8f 20 c8 90 20 58 31 25 | 2c 59 31 25 2c 52 25 0d |. .. X1%|,Y1%,R%.|
|00003c20| 12 98 0b 20 e6 20 30 2c | 31 35 0d 12 a2 11 20 52 |... . 0,|15.... R|
|00003c30| 25 3d a8 28 52 4d 2a 53 | 43 4c 29 0d 12 ac 10 20 |%=.(RM*S|CL).... |
|00003c40| c8 8f 20 58 25 2c 59 25 | 2c 52 25 0d 12 b6 0b 20 |.. X%,Y%|,R%.... |
|00003c50| e5 20 8d 64 72 52 0d 12 | c0 0f 20 53 43 4c 3d 32 |. .drR..|.. SCL=2|
|00003c60| 34 30 2f 52 53 0d 12 ca | 0c 20 58 31 25 3d 36 34 |40/RS...|. X1%=64|
|00003c70| 30 0d 12 d4 0c 20 59 31 | 25 3d 35 31 32 0d 12 de |0.... Y1|%=512...|
|00003c80| 11 20 52 25 3d a8 28 52 | 53 2a 53 43 4c 29 0d 12 |. R%=.(R|S*SCL)..|
|00003c90| e8 15 20 c8 8f 20 c8 90 | 20 58 31 25 2c 59 31 25 |.. .. ..| X1%,Y1%|
|00003ca0| 2c 52 25 0d 12 f2 13 20 | 44 5a 3d 38 2a 28 5a 34 |,R%.... |DZ=8*(Z4|
|00003cb0| 48 2d 5a 33 48 29 0d 12 | fc 13 20 44 53 3d 38 2a |H-Z3H)..|.. DS=8*|
|00003cc0| 28 53 34 48 2d 53 33 48 | 29 0d 13 06 1c 20 58 33 |(S4H-S3H|).... X3|
|00003cd0| 25 3d 36 34 30 2b a8 28 | 28 5a 33 48 2d 44 5a 29 |%=640+.(|(Z3H-DZ)|
|00003ce0| 2a 53 43 4c 29 0d 13 10 | 1c 20 58 34 25 3d 36 34 |*SCL)...|. X4%=64|
|00003cf0| 30 2b a8 28 28 5a 34 48 | 2b 44 5a 29 2a 53 43 4c |0+.((Z4H|+DZ)*SCL|
|00003d00| 29 0d 13 1a 1c 20 59 33 | 25 3d 35 31 32 2b a8 28 |).... Y3|%=512+.(|
|00003d10| 28 53 33 48 2d 44 53 29 | 2a 53 43 4c 29 0d 13 24 |(S3H-DS)|*SCL)..$|
|00003d20| 1c 20 59 34 25 3d 35 31 | 32 2b a8 28 28 53 34 48 |. Y4%=51|2+.((S4H|
|00003d30| 2b 44 53 29 2a 53 43 4c | 29 0d 13 2e 16 20 86 20 |+DS)*SCL|).... . |
|00003d40| 58 33 25 2c 59 33 25 2c | 58 34 25 2c 59 34 25 0d |X3%,Y3%,|X4%,Y4%.|
|00003d50| 13 38 15 20 e7 20 54 50 | 24 3d 22 4c 22 20 8c 20 |.8. . TP|$="L" . |
|00003d60| 8d 74 48 53 0d 13 42 0a | 20 e6 20 30 2c 30 0d 13 |.tHS..B.| . 0,0..|
|00003d70| 4c 1f 20 58 25 3d 36 34 | 30 2b a8 28 28 5a 48 2d |L. X%=64|0+.((ZH-|
|00003d80| 5a 31 48 2b 58 48 30 29 | 2a 53 43 4c 29 0d 13 56 |Z1H+XH0)|*SCL)..V|
|00003d90| 24 20 59 25 3d 35 31 32 | 2b a8 28 28 53 48 2a 28 |$ Y%=512|+.((SH*(|
|00003da0| 5a 31 48 2d 58 48 30 29 | 2f 5a 48 29 2a 53 43 4c |Z1H-XH0)|/ZH)*SCL|
|00003db0| 29 0d 13 60 11 20 52 25 | 3d a8 28 52 4d 2a 53 43 |)..`. R%|=.(RM*SC|
|00003dc0| 4c 29 0d 13 6a 13 20 c8 | 8f 20 c8 90 20 58 25 2c |L)..j. .|. .. X%,|
|00003dd0| 59 25 2c 52 25 0d 13 74 | 0b 20 e6 20 30 2c 31 35 |Y%,R%..t|. . 0,15|
|00003de0| 0d 13 7e 10 20 c8 8f 20 | 58 25 2c 59 25 2c 52 25 |..~. .. |X%,Y%,R%|
|00003df0| 0d 13 88 13 20 ef 20 32 | 38 2c 30 2c 31 30 2c 32 |.... . 2|8,0,10,2|
|00003e00| 30 2c 30 0d 13 92 0a 20 | fb 20 31 34 33 0d 13 9c |0,0.... |. 143...|
|00003e10| 06 20 db 0d 13 a6 08 20 | fb 20 30 0d 13 b0 17 20 |. ..... |. 0.... |
|00003e20| 43 24 3d 22 4c 75 6e 61 | 72 20 45 63 6c 69 70 73 |C$="Luna|r Eclips|
|00003e30| 65 22 0d 13 ba 23 20 e7 | 20 54 50 24 3d 22 53 22 |e"...# .| TP$="S"|
|00003e40| 20 8c 20 43 24 3d 22 53 | 6f 6c 61 72 20 45 63 6c | . C$="S|olar Ecl|
|00003e50| 69 70 73 65 22 0d 13 c4 | 1e 20 f1 27 8a 32 29 3b |ipse"...|. .'.2);|
|00003e60| 43 24 3b 22 20 22 3b a4 | 52 4f 55 28 4d 47 2c 31 |C$;" ";.|ROU(MG,1|
|00003e70| 30 30 29 0d 13 ce 2b 20 | 43 24 3d c3 28 a8 28 44 |00)...+ |C$=.(.(D|
|00003e80| 59 30 29 29 2b 22 2f 22 | 2b c3 28 a8 28 4d 4e 29 |Y0))+"/"|+.(.(MN)|
|00003e90| 29 2b 22 2f 22 2b c3 28 | a8 28 59 52 29 29 0d 13 |)+"/"+.(|.(YR))..|
|00003ea0| d8 0d 20 f1 27 8a 35 29 | 3b 43 24 0d 13 e2 15 20 |.. .'.5)|;C$.... |
|00003eb0| e7 20 54 50 24 3d 22 4c | 22 20 8c 20 8d 54 68 54 |. TP$="L|" . .ThT|
|00003ec0| 0d 13 ec 1c 20 43 24 3d | 22 20 4c 6f 6e 67 2e 20 |.... C$=|" Long. |
|00003ed0| 22 2b c3 28 a8 28 4c 4f | 4e 47 29 29 0d 13 f6 0c |"+.(.(LO|NG))....|
|00003ee0| 20 f1 8a 34 29 3b 43 24 | 0d 14 00 20 20 43 24 3d | ..4);C$|...  C$=|
|00003ef0| 22 20 4c 61 74 2e 20 22 | 2b c3 28 a8 28 a4 44 45 |" Lat. "|+.(.(.DE|
|00003f00| 47 28 50 48 49 29 29 29 | 0d 14 0a 0c 20 f1 8a 35 |G(PHI)))|.... ..5|
|00003f10| 29 3b 43 24 0d 14 14 2e | 20 43 24 3d c3 28 a8 28 |);C$....| C$=.(.(|
|00003f20| 48 54 2a 36 2e 33 37 38 | 31 34 45 36 29 29 2b 22 |HT*6.378|14E6))+"|
|00003f30| 6d 20 61 62 6f 76 65 20 | 73 65 61 20 6c 65 76 65 |m above |sea leve|
|00003f40| 6c 22 0d 14 1e 09 20 f1 | 20 43 24 0d 14 28 29 20 |l".... .| C$..() |
|00003f50| 43 24 3d 22 20 22 2b c3 | 28 a8 28 58 44 41 29 29 |C$=" "+.|(.(XDA))|
|00003f60| 2b 22 2e 22 2b c3 28 a8 | 28 58 4d 41 29 29 2b 22 |+"."+.(.|(XMA))+"|
|00003f70| 20 55 54 22 0d 14 32 0c | 20 f1 8a 35 29 3b 43 24 | UT"..2.| ..5);C$|
|00003f80| 0d 14 3c 06 20 f1 0d 14 | 46 1d 20 f1 8a 32 29 3b |..<. ...|F. ..2);|
|00003f90| 22 53 70 61 63 65 20 74 | 6f 20 63 6f 6e 74 69 6e |"Space t|o contin|
|00003fa0| 75 65 22 0d 14 50 0d 20 | f5 20 fd 20 a5 3d 33 32 |ue"..P. |. . .=32|
|00003fb0| 0d 14 5a 09 20 ef 20 32 | 36 0d 14 64 0e 20 eb 20 |..Z. . 2|6..d. . |
|00003fc0| 30 3a e5 8d 44 4a 41 0d | 14 6e 06 20 e1 0d 14 78 |0:..DJA.|.n. ...x|
|00003fd0| 06 20 3a 0d 14 82 3d 20 | f4 20 41 63 6b 6e 6f 77 |. :...= |. Acknow|
|00003fe0| 6c 65 64 67 65 6d 65 6e | 74 3a 20 41 53 54 52 4f |ledgemen|t: ASTRO|
|00003ff0| 4e 4f 4d 59 20 57 49 54 | 48 20 59 4f 55 52 20 50 |NOMY WIT|H YOUR P|
|00004000| 45 52 53 4f 4e 41 4c 20 | 43 4f 4d 50 55 54 45 52 |ERSONAL |COMPUTER|
|00004010| 0d 14 8c 2b 20 f4 20 20 | 20 20 20 20 20 20 20 20 |...+ .  |        |
|00004020| 20 20 20 20 20 20 20 20 | 50 65 74 65 72 20 44 75 |        |Peter Du|
|00004030| 66 66 65 74 74 2d 53 6d | 69 74 68 0d 14 96 38 20 |ffett-Sm|ith...8 |
|00004040| f4 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00004050| 20 20 20 43 61 6d 62 72 | 69 64 67 65 20 55 6e 69 |   Cambr|idge Uni|
|00004060| 76 65 72 73 69 74 79 20 | 50 72 65 73 73 20 20 31 |versity |Press  1|
|00004070| 39 38 35 0d 14 a0 31 20 | f4 20 41 64 61 70 74 65 |985...1 |. Adapte|
|00004080| 64 20 62 79 3a 20 20 20 | 20 20 20 44 41 41 46 2f |d by:   |   DAAF/|
|00004090| 4a 41 46 20 44 75 6c 77 | 69 63 68 20 44 65 63 20 |JAF Dulw|ich Dec |
|000040a0| 31 39 38 38 0d ff       |                         |1988..  |        |
+--------+-------------------------+-------------------------+--------+--------+